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TRANSMISSION OF FINANCIAL STATEMENT DATA AND 
5 ARTICLE OF MANUFACTURE RESULTING THEREFROM 

ABSTRACT OF THE DISCLOSURE 

10 A method, system and article of manufacture incorporates a financial institution 

computer system for extracting financial data within a data base, formatting the data and 
transmitting the formatted data via electronic mail. Electronic information on financial 
accounts of a customer is maintained within the data base in the financial institution 
computer system. The electronic information is processed to identify and extract 

15 pre-selected data and the processed data is electronically formatted for transmission to 
the customer via electronic mail to a location designated by the customer via electronic 
mail for storage within and readout on a computer system of the customer. 
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BACKGROUND OF THE INVENTION 

(1) FIELD OF THE INVENTION: The present invention is directed to a method, an 
article of manufacture, and a system incorporating a computer system of a 
financial institution, wherein data fields are provided and access thereto is 

5 initiated forthe generation of financial information for format and transmission via 

electronic mail to the customer on an incremental time basis. 

(2) BRIEF DESCRIPTION OF THE PRIOR ART: Electronic mail (or "e-mail") is a 
popular way for people to communicate. Using e-mail, a person can send 
messages and other information such as formalized documents, etc., that are in 

10 digital form, either in the mail itself, or as an "attachment" in a rather lengthy e- 

mail configuration. 

E-mail communication systems are generally regarded as multi-cast, store-and- 
forward bi-directional communication systems. A user can send e-mail messages to 
one or more recipients at a time. An e-mail system is regarded as bi-directional as, 
15 usually, a user can both send and receive e-mail messages. Uni-directional systems 
are also popular. 

When using e-mail to communicate, a user will typically create a message using 
an e-mail program running on a computer that is or can be connected by a network to 
other computers. The message will include the e-mail address of the intended recipient. 
20 When the user has finished entering the message, the user will "send" the message to 
the intended recipient. The message is electronically transmitted via the computer 
network. The recipient, also using an e-mail program running on a computer connected 
to a computer network, can then read the received message. 
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A common computer network used to send and receive e-mail is the Internet. 
The Internet allows users to send and receive e-mail to and from computers around the 
world. Typically, each user will have an Internet e-mail address unique to that user, 
e.g., bob@pto.com. A user with an e-mail account and a computer that can connect to 

5 the Internet can easily send and receive e-mail over the Internet. Users connect to the 
Internet to send and receive e-mail through a number of on-line networks, such as 
America on Line, CompuServe, Microsoft Network, and the like. Using a computer with 
a modem, the user is supplied with a unique access number which is sourced through 
the network for sending and receiving e-mail. 

10 In the past, banks and other similar financial organizations, have customarily sent 

out statements to customers on a given time basis, such as monthly. Generally 
speaking, separate accounts will generate statements which have been mailed to the 
customer. Recently, many banks and other financial institutions have offered 
statements in which all accounts are included in one statement, i.e., 2 or more checking 

15 accounts, a savings account, a line of credit, and the like. 

Most banks offer a telephone "800" number for a customer to make specific 
inquiry regarding a debit, credit or balance for a particular account. Most of the "800" 
numbers are automated and computer generated voice responses deliver the required 
messages and information to the customer upon the customer entering into the phone 

20 pad identification numbers for the account and other information. Often times, these 
"800" numbers are not satisfactorily responsive and result in delays in communicating 
the desired information to the customer, with the customer being placed on "hold" for 
many minutes. 
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The present invention addresses many of the problems described above by 
providing a method and system for sorting, generating and presenting banking and other 
financial data in a format from a host computer system, i.e., a host server, to a computer 
integrated into an e-mail system, preferably via the Internet as above described, for a 

5 very frequent transmission of the requested and desired information to the customer, 
such as on a daily basis, i.e., once each morning at a designated time. In this manner, 
the customer may be serviced with a "daily" or almost continuous data stream containing 
debit, credit and balance information on a host of accounts with the financial institution, 
such as a Bank, savings and loan association, or the like. The information is provided 

10 in a format which offers security to the customer with respect to proper identification of 
accounts and the like. 
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DEFINITIONS 



As used in the specification and the claims, the following words and phrases shall 
have the meanings corresponding thereto: 

(1) "Checking Account": a bank account against which the depositor can 
5 draw checks. 

(2) "Savings Account": an account (as in a bank) on which interest is usually 
paid and from which withdrawals can be made usually only by 
presentation of a passbook or by written authorization on a prescribed 
form. 

10 

(3) "Certificate of Deposit": an account (as in a bank) on which interest is 
usually paid at an agreed upon rate for an specific, agreed upon, time 
period. For example, 7% for 90 day. Withdrawals of principle are usually 
not allowed (without penalty) during the term of the agreement. 

15 

(4) "Loan Account": an account (as in a bank) reflecting money lent at 
interest. 

(5) "Discount Loan Account": an account (as in a bank) reflecting money lent 
at interest where the interest to be charged during the terni on the loan is 

20 computed at the time the money is lent and added to the amount 

borrowed to determine the amount of the loan. The borrower receives as 
proceeds, the amount of the loan less the pre-computed interest (the 
discounted amount); 

25 (6) "Simple Interest Loan Account": an account (as in a bank) reflecting 

money lent at interest where interest charged is computed and added to 
the balance of the note on a daily basis using a daily interest rate factor. 

(7) "Laser Notice File": a data file containing customer notices (interest paid, 
30 NSF checks, payments due, etc.) formatted for printing on a laser printed. 

(8) "NSF Check": a check presented payment on an account against which 
the depositor can draw checks when there are not sufficient funds in the 
account to pay the check. 

35 

(9) "Predeterminable Time Increment Basis": For example, daily at a set 
time each day. 
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"Officer Order": account information sorted in order of the initial of tlie 
bank officer assigned to the account (rather than in another order such 
as account number). 

CSV attachments; (comma separated values) information in a 
computer data file where each file record contains several data 
elements each separated by a comma. The comma marks the end of 
one data element and the beginning of another. 

Qwicken attachments: Information in a computer data file formatted to 
the requirements of the popular personal accounting program Quicken, 
for importing financial information into the program. 



SUMMARY OF THE INVENTION 

The present invention provides a method, system and article of manufacture 
incorporating a financial institution computer system for extracting financial data 
within a data base in the computer system and for formatting the data and thereafter 

5 transmitting the formatted data via electronic mail. Electronic information is 
maintained on financial accounts of a customer within the data base in the financial 
institution computer system. The electronic infomiation is processed within the data 
base to identify and extract pre-selected data therefrom. The data is electronically 
formatted for transmission to the customer via electronic mail. The formatted data 

10 is transmitted to a location designated by the customer via electronic mail for storage 
within and readout on a computer system of the customer. 

The financial institution preferably is a bank. As used herein, the computer 
system may include a computer server, one or more personal computers and any 
other electronic computer system well known to those skilled in the art and utilized 

15 in financial institutions for the maintaining of electronic information pertaining to 
checking, savings, certificates of deposit, loan accounts, and the like. Electronic 
information is processed to identify and extract pre-selected data therefrom, such 
as mini trial balances for checking accounts, savings accounts, certificates of 
deposit, loan accounts, and discount loan accounts, simple interest loan accounts, 

20 and any and all other special service accounts of the financial institution for each of 
its customers. The information is electronically formatted such as by use of a 
"WINDOWS" type computer operating system including menu selections for 
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customers, options, verify files, enable auto e-mail, generate e-mail, broadcast, help 
and exit. 

A customer setup configuration is generated through sorting of the data field 
in the computer for each customer in at least one of the following fields sorted by file 
within the computer: account number; reference number; account name; account 
type; balance for designated accounts; transactions for designated accounts; non- 
sufficient funds designation; and day or date of report transmission. 



DESCRIPTION OF THE ILLUSTRATIONS 



Fig. 1 is a printout of a sample or representative e-statement illustrating tine 
preferred layout and configuration of the report generated in accordance with the 
present invention. 

5 Fig. 2 is a view of the main menu for generating the e-mail report of the 

preferred embodiment of the invention in WINDOWS format as it would appear on 
a personal computer CRT or screen. 

Fig. 3, similar to the illustration of Fig. 2, is an illustration of the customer's 
selection, 39, from the main menu. 
10 Fig. 4, is an illustration of the view of the customer set-up generated by selection 

at the add/edit button 56. 

Fig. 5 is a view similar to that of Fig. 4 showing the customer account set up 
configuration which will appear by activating the accounts button 68 shown in Fig. 4. 
Fig. 6 is a view similar to the previous figures illustrating a sub-menu option of 
15 "change report path" and "change loan data path" by clicking onto the options field 40 
illustrated in Fig. 2. 

Fig. 7 is a view similar to the other figures of the sub-menu option for "change 
system information" resulting from scrolling at 107 in the sub-menu option illustrated in 
Fig. 6. 

20 Fig . 8 is a view similar to the previous views of the sub-menu option of "Edit Auto 

E-Mail Settings" by scrolling at 107 in the sub-menu illustrated in Fig. 6. 
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Fig. 9 is yet another sub-menu option which may be position by again scrolling 
at 107 on the sub-menu profile of Fig. 6. 

Fig. 10 is a view of yet another sub-menu option of "Edit Transaction Codes" 
which may be selected by again scrolling at 107. 
5 Fig. 1 1 is an illustration of the selection on the main menu of "enable auto e-maii" 

and "disable auto e-mair, field 42 as illustrated in Fig. 2. 

Fig. 12 is yet another illustration of another main menu selection in the 

"broadcast" field 44 of Fig. 2. Fig. 13 illustrates the method of the generation of 

the e-statement in logic and step format. 
10 Fig. 14 is a view similar to Fig. 13 illustrating the sub-program of "make 

statements". 

Fig. 15 is a view similar to Figs. 13 and 14 showing another sub-program 
pertaining to reading of the loans files. 

Fig. 16 is a view similar to Figs. 13 through 15 showing the logic and step path 
15 for the reading of deposit trial balances files. 

Fig. 17 is yet another logic/step view similar to Figs. 13 through 16 of the sub- 
program of reading transactions and NSF (non-sufficient funds) files. 

Figs. ISA through 18D together constitute an illustration of a representative 
printout of a detailed statement generated in accordance with the present invention, and 
20 as built from data input as illustrated in Figs. 2 through 12 in accordance with the 
description In the specification relating thereto. 
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DESCRIPTION OF THE PREFERRED EMBODIMENTS 



Now with reference to Fig. 1, there is shown a sample of an e-statement 
preferred format 1 which is transmitted electronically from the financial source, through 
a computer via conventional e-mail Internet services. 

5 The statement 1 may appear upon a computer screen, or the like, and/or may be 

printed out in any tangible format. As shown, the e-statement 1 contains a first line 2 
containing the title and the source of the statement and any advertising or promotional 
or legal notice requirements, such as "Member FDIC". A date line 3 is provided for 
specifying the statement generation date and time of generation. As shown, the 

10 statement 1 has a statement generation field 3 specifying that it is generated "as of 
close of business Monday Oct. 16. 2000". A salutation/description line 4 brings the 
attention of the reader to the subject matter of the e-statement 1 . 

Fields 5, 6 and 7 are clustered on one line to identify the type of account, and the 
digitized account number 6, which may have one or more sub-fields in "x"ed or other 

15 disguising configuration, for security purposes. Field 7, as shown, describes the 
account as "Household Account". 

Below the field lines 5, 6 and 7 are found the Available Balance field 8 and the 
Exact Balance field 9 as of the date of the generation of the e-statement 1 , reflected in 
field 3. 

20 A field 10 is identified as "Last Deposit", giving the amount field 1 1 in numbers, 

and an "as of or "on" field 12 for identifying the date of the last deposit 10 which may 
or may not, be the same date as the generation date 3 of the e-statement 1. 
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Field 13 specifies the transactions for the account identified in field 6 by date 14, 
serial or transaction number 15, amount 16 and transaction source and type 17. As 
shown, underthe date field 14, three transactions, 18, 19and 20 are shown for Oct. 16, 
2000 with each being identified by a separate serial number 15. Each of the amounts 

5 16 for the transactions 18, 19 and 20 are identified and described in the transaction 

® 

identification field 17, such as a check, ACH, debit or a VISA banking credit or debit 
card, well known to those skilled in the art. 

The e-statement 1 also has a similar information in fields for another account 22 
which is identified in field 1 as a "savings account" and further identified in description 

10 field 23 as a "Household Savings Account", An available balance field 24 similar to that 
in field 8 is shown for the savings account 21 in a specific monetary amount at field 25, 
A last deposit field 26 indicates, as shown, an amount of $2,000 in field 27 deposited 
to the account on Oct. 13, 2000 as shown in field 28. 

Again, particular transactions for the account are shown in field 26 with the 

15 account being respecified in field 27. The transactions are identified along field line 29 
by date, field 30, serial number, field 31, amount, field 32 and transaction source and 
type, field 33. The date is provided in field 34 with the serial number identification field 
35 and the specified amount of the transaction in the amount field 36. In field 37, the 
transaction is identified as a "withdrawal", the amount of $40.00, field 36. 

20 The e-statement 1 may be provided in a number of formats, with figure 1 being 

only representative of an arrangement of the accumulation of the financial data in the 
statement format 1, 
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The operation of the e-statement method and program will now be described. 
Figures 2 through 12 illustrate various computer generated video screen or CRT 
displays of various menu selections incorporated within a preferred program for the e- 

statement process. As shown, and as previously described, the program is preferably 

® 

5 generated through the computer by means of a WINDOWS computer operating 
system which is well known and generally publically available in numerous versions. 

With first reference to Fig. 2, a main menu 38 is displayed. The main menu 
has sub-menus identified as customers 39, options 40, verify files 41, enable auto 
10 e-mail 42, generate e-mail 43, broadcast 44 and general help fields or sub-menus 
45 and exit field 46. 

The customer's menu or field 39 is more particularized in Fig. 3 and discussed 
hereafter in detail. In this customer's field 39, a customer's name, e-mail address 
and account information are entered or changed, from time to time. 
15 The main menu 38 also contains an option field 40 for the purpose of 

changing certain program options such as the directory path to reports, default fonts 
and graphics for statements, auto e-mail settings, and to define core processor 
transaction codes, and the like. 

The verify files field 41 assures verification that all files which are needed to 
20 generate a current days e-statements have been downloaded from the financial 
source core computer processor. 
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The enable auto e-mail field 42 is used to turn on or off any program feature 
monitoring the progress of the daily report downloads from the financial 
organization's core computer processor. Additionally, this field 42 generates e- 
statements as soon as all required reports have been received and processed just 
5 prior to generation of the e-statement configuration to the customer. 

The generate e-mail field 43 is utilized to generate a current day's, week's or 
months e-statements which may be prepared and sent on any incremental time 
basis. This field 43 is a manual request field. The program itself verifies to confirm 
that all required report files are available. However, if some required reports are not 
10 available or are incomplete, the program allows the user the option to continue or 
abort the request through activation of the generate e-mail field 43 as shown and 
described in more detail in Fig. 9 and discussion relating thereto. 

The broadcast field 44 is utilized to send an e-mail message to all or a 
selected group of customers receiving e-statements to announce changes, delays, 
15 modifications, or any other material information which is desired to be generated and 
transmitted to a select number of customers. 

The help menu selection field 45 is conventional in nature and is provided for 
purposes of immediate computer program operating assistance. 

Finally, the exit program or field 46 may be utilized for click-on to return to the 
20 original WINDOWS® desktop configuration after termination of entry into the 
program. 
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Now with particular reference to Fig. 3, the customer's sub-program or field 
39 in the main menu 38 will now be described. As shown in Fig. 3, the customer's 
field 39 is shown in spreadsheet configuration. Fields 50 through 54 are entered in 
negative/zero configuration where the negative is reflective of a "true" state and a "0" 

5 is indicative of a false state, as further described below. Sub-fields 47 through 55 
are displayed across the spreadsheet in a horizontal configuration. The "Id" field 
permits entry of a unique number or code correlated to a single customer. Within the 
customer name field 48 are listed the individual customer names, by individual or 
business. The e-mail address field is horizontally displayed adjacent the customer 

10 name field 48 which is followed by fields 50-54 for a specific service information. For 
example, "CHRG" field 50 is a field indicating whether or not the customer is to be 
charged for the service of providing the e-statement. A negative number in this field 
50 would indicate that the customer is to be charged for the e-mail statement service. 
The "CONF" field 51 is utilized to verify that the customer has returned the 

15 confirmation of the e-mail address. The "SUSP" field 52 is utilized to indicate 
possible temporary or permanent suspension of the service for this particular 
customer. The "No Ad" field 53 is utilized to indicate whether or not electronic 
advertising is to accompany the e-statement with transmission to this particular 
customer. The "Rate" field 54 is utilized to indicate the transmission of various 

20 interest rates being paid to customers on deposit accounts or charged to customer 
on loan accounts by the bank. 
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The "Add/Edit" button 56 is a click field which will allow the program user to 
add a new customer, to delete a customer, or change any of the information about 
the customer in any of the fields 47 through 55. Selecting this button 56 with a 
customer's information highlighted will display that customer's information for editing 

5 purposes. Selecting this button without a customer's infomnation highlighted will 
display the first customer's information for editing purposes, or , alternatively, the last 
customer's information for such purposes, as described below. The "Close" button 
57 will, of course, return the program to the main menu display, as in Fig. 2. 

The Add/Edit button 56 window display is particularized in Fig 4. Fields 47 

10 through 54 are displayed vertically and correspond to the horizontal configuration for 
such fields in Fig. 3. The address name field 48 may be filled in by a click-on and 
type in of the data in field 48A. Likewise, the e-mail address field 49 may be clicked 
on to insert such information in field 49A. As indicated, charge and confirmed fields 
50 and 51 are positively indicated by click-on at fields 58 and 59. Fields 60, 61 and 

15 62 likewise are that they are click-checked or the field left blank, as the case 
requires. The sort name field 63 is filled in at corresponding field 64 by use of first, 
last or code names, as required. The Add button 65 is conventional and clears all 
the fields and sets them to their default value thus allowing the entry of a new 
customer's information, or update of such information. Likewise, the delete button 

20 66 deletes the displayed customer from the field. When the delete button 66 is 
utilized, no additional e-statement will be generated for that particular customer. The 
update button 67 is utilized to update the customer's information with the contents 

-17- 



displayed on the screen, Fig. 3, Fig. 4, or adds a new customer to the database after 
the information has been entered. The Account button 68 allows the program user 
to add or edit account information for the customer currently being displayed. The 
Close button 69 closes the window display Fig. 4 to return to the display format of 
5 Fig. 3. 

Now with reference to Fig. 5, there is shown the statement account display 
which allows the program user to add or edit account information for the customer 
currently being displayed in particular fields. The Account field 70 is entered in 
space 71 in alpha numeric format from the financial systems main computer 

10 processing unit. This number is assigned at the time the account is opened, such 
as a purchase of a certificate of deposit, or completion of a loan transaction. A 
limited number of digits for the account number field 71 are permitted to be displayed 
on the e-statement or account attachments as illustrated in Fig. 1, for security 
purposes. The reference number field 72 is entered in space 73 from the financial 

15 organization's main computer and this number may, or may not, be the same as the 
account number 71 , depending upon the particular operations of the bank"s central 
computer processing system. However, the number in the field 73 is never displayed 
or printed on the e-mail statements or account statement attachment due to a 
computer block for printout of this particular number, also for security purposes. 

20 The account name field 74 is filled in at space 75 as it will appear on the 

customer's e-statement, as in Fig. 1 . This can be any name which is meaningful to 
the customer. For security reasons it should not be the customer's actual account 
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name and preferably will be, as reflected In the e-statement of Fig. 1 , identified as 
"Household Account" or "Regular Checking", or the like. The customer will be able 
to identify the respective accounts by the last four digits of the account number, as 
printed, and not particularly with reference to the specific name in the field 75. The 
5 account type field 76 is entered at 77 by scrolling on button 78 for one of a number 
of account types reported on the program, such as checking, savings, certificate of 
deposit, commercial loan, consumer loan, line of credit, revolving account, orthe like. 

The reports balance field 79 is checked in the adjacent area if the balance of 
10 the account is to be reported each day, week, month, or the like, along with certain 
other information specific to each account type. 

The scroll down button 78 may be clicked on to select one of a number of 
account type 76 in field 77, such as checking accounts, savings accounts, loans, 
certificates of deposits, and the like. 
15 If the report balance field 79 is checked in the appropriate location, 

supplemental information for the various types of accounts as indicated in the field 
77 will be generated and included within the e-statement. For example, if checking 
accounts is scrolled into the field 77 by click-on to the arrow button 78, current 
balance, available balance, date of last deposit, amount of last deposit, posted 
20 transactions and NSF (None Sufficient Funds) Items will be generated. If "Loans" 
is scrolled into the field 77, current balance, interest rate, payment amount, last 
payment due, next due date, maturity date, payoff balance, Interest year-to-year and 
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collateral description information will also be generated. If savings accounts is 
scrolled into the field 77, available balance, date last deposit, amount of last deposit 
and posted transactions will be generated into the e-statement automatically. If 
certificates of deposit are entered into the field 77, cun^ent balance, next payment 
5 date and accrued interest information will be generated. 

If the report transactions field 80 is checked, all transactions posted to the 
account will be listed in the e-statement along with other information, as described 
above. 

If the report NSF field 81 is checked, any debit, such as a check, or the like, 
10 presented for payment when the account does not have sufficient funds to pay the 
debit will be reported, so that the customer may make provision for supplemental or 
immediate deposits, or the like or transfer of other funds into the account, NSF Items 
appear before any other account information on the e-statements as an alert 
courtesy to the customer. This option is, of course, valid for only checking accounts 
15 or accounts similar to conventional checking accounts. 

The attached statement field 82 is checked if it is desired for any statement 
produced for the account by the bank's core processing computer system to be 
added to the e-statement as an attachment. Integrated statements, i.e., those with 
more than one account on a single statement, may be attached only once, if desired. 
20 The extract ASCII field 83 is checked if it is desired to generate an ASCII text file 
each day that there are transactions for an account and attached to that day's e- 
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statement. This file can be imported into many different accounting programs for 
account reconciliation operations, as desired. 

The extract Qwicken™ field 84 is checked if a file in Qwicken™ format is to 
be created each day there are transactions for an account and attached to that day's 

5 e-statement for transmission to the customer. This file can be imported into 
Qwicken™ for account reconciliation. The report on given days, such as Monday 
through Friday's fields 85 through 89 are checked for generation of e-statement for 
that particular day. For example, the customer may only want certificate of deposit 
or loan information on a weekly basis since these accounts customarily have limited 

10 transactions, whereas checking accounts may have transactions on them several 
times each day. In such case, a report may be generated for each day of the week 
by checking in the appropriate fields 85 through 89. Alternatively, field 90 may be 
checked if a report is to be generated only on a monthly basis and field 91 is 
completed to indicate on the day of such month that the e-statement is to be 

15 generated and transmitted to the customer. 

Field 98 is the "Last Statement" field and appears at the upper right hand 
corner of the window. This field is the date of the last statement generated for the 
account and is utilized for information purposes only. Add, delete, update and 
previous and next buttons 92 through 96 are provided for respective adding, deleting, 

20 updating, or moving to previous and next displays, in conventional format. Likewise, 
the Close button 97 is provided to close the window and return to the previous 
format. 
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Fig. 6 represents the visual configuration of tlie program appearing on the 
CRT or other screen from the main menu selection of options 40. Fig. 6 is illustrated 
with the change report path and change loan data path submenu options preparing 
in the window. These options allow the program user to designate the full path name 

5 to the directory where the computer download financial report files from the core 
computer are downloaded at the end of each day, the like. As shown on Fig. 6, the 
correct report download directory may be selected by either clicking on to a location 
field 106 or by entry of the file name 99 in field 100 or by scrolling at 107 for 
designation in the field 104 of the files of type 103 and then clicking to the open 

10 button 101. The selection may be cancelled by clicking at 1 02 prior to opening the 
file at 101. Opening the file 101 will change the path to the files in the windows 
registry. The report path and the loan data path typically will be identical. 

As shown in Fig. 7, another submenu option is the "change system 
information" option. This submenu option permits the program user to change some 

15 of the program options, as provided. The system name field 1 08 will permit entry at 
location 109 of the brand name used for the title of the statement, such as "E- 
Statement". Other service mark titles may be utilized as desired. The name which 
is entered and placed in the field 109 will be used on all customer e-mail that is 
generated. 

20 The bank name field 110 identifies the supplier of the service at 1 1 1 and is 

entered in the e-statement in the "from" field (see Fig. 1). The statement font size 
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112 is entered in space 113 which will be the font size used in the account 
statements created as attachments. 

The statement graphic field 1 14 is inserted at 115 if a valid graphic file name 
is to be entered and the graphic will be added to the upper left hand corner of the 

5 statement attachments, to include a logo, or the like in the e-statement configuration 
transmitted to the customer. The brouse button 1 16 is used to select reference to 
a graphic file, which may be created as needed. The save button 117 may be used 
to save the currently displayed program settings and close the window to return to 
the main menu. Likewise, the close button 118 will close the window and return to 

10 the main menu without saving any changes. 

As shown in Fig. 8, another submenu option is the "Edit Auto E-Mail Settings". 
This submenu option will allow the program user to change the time to begin the e- 
statement generation each day, and a number of minutes between attempts to 
automatically generate e-statement through the computers and the internet to receipt 

15 by the customer, if all reports needed are not available at the time of initial desired 
generation. 

The "begin e-mail" function 120 time is entered in space 121 by scrolling up 
or down on buttons 122, 123. This time is the time that the computer is instructed 
to begin trying to generate and send the day's e-statement. The minutes between 
20 attempts field 1 24 is selected and entered at 1 25 by scroll up or down at buttons 1 26 
and 127 to reflect the time in between attempts to try to generate such e-statement 
because downloads from a core data processing system may take several minutes 
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or even hours. If all of the reports are not completely downloaded, continual 
repetitious checks for the reports may not be successful. Therefore, by increasing 
the time between checks, a computer processing usage can be limited and e- 
statement may be generated in a reasonable time after the last report is received. 

5 

Save and cancel button 128 and 129 are utilized to either save the currently 
displayed program setting and close the window and return to the main menu or to 
close the window and return to the main menu without saving such information. 
The program contemplates and enable/disable submenu option, which is used 
10 only during testing. Disabling users will check the "Suspend" option for each e- 
statement customer except the customer whose customer ID is a specific number, 
such as "10". This will allow the program user to test new program settings, while 
sending e-statements to only one customer, such as a staff member of the financial 
organization. Selecting "enable" will return all customer's to their previous 
IS suspended status. 

The next submenu option is illustrated in Fig. 9 and provides the set up and 
screen profile for the generation of the selected e-statement. This submenu option 
allows the user to generate the selected portions of the daily e-statements generated 
by the financial organization main computer as well as to attach a personal message. 
20 This submenu may be used to send information of a special nature that may not 
have been available at the time that the e-statements were generated on a daily, 
weekly or other basis. Fields 1 30 through 1 35 may be checked by appropriate click 
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for balance information, transactions, loan information, statement attachments, CSV 
attachments or Qwicken™ attachments. Field 136 may be used for personal 
messages. After completion of this option, the continue button is click at 37 or the 
operation may be cancelled by clicking at 138. 

5 Fig. 1 0 illustrates another submenu option generally referred to as "edit tran 

codes". This submenu allows the operator to provide descriptions used in the e- 
statement for the different type of transactions posted to deposit and/or loan 
accounts. A transaction code field 139 is typed in in area 140 and corresponds to 
a pre-determined code in the computer for a given transaction type and is assigned 

10 by the main data processor, A description field 140 is used for insertion of an 
identification if the title of the transaction code, such as "new account opening 
deposit" at area 141. A debit field 142 may be checked at location 143 to indicate 
that the transaction code is for a debit transaction, such as a check or an ACH debit 
for insurance, car payment or the like. The add button 144 clears the content of all 

15 the fields and resets them to their default value enabling the program user to enter 
a new transaction code, when desired. Likewise, the delete button 145 will delete 
the information for the currently displayed transaction code. The refresh button 146 
is used to realign all the transaction codes in numerical order. This button may be 
used after a new transaction code has been entered to get it in the proper numeric 

20 sequence for viewing. The update code 147 is used to update information with the 
contents displayed on the screen or may be used to add a new transaction code to 
the database after the transaction code's information has been entered. 
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The close button148 will close the window and return to the previous screen. 
Arrow keys 149 and 150 will function as "next" and "previous" buttons for displaying 
or scrolling from one transaction code to the next as reflected in field 151. 

Now returning to referred Fig. 2, the verity files field 41 is used to verity that 
all necessary files are available to produce the day's e-statements. Each of these 
files is given a specific code and they're contained within the main or core computer 
system. Typically, and preferably, these files will include the following: 

1 . Daily checking account mini-trial balance. 

2. Daily savings account mini-trial balance. 

3. Daily certificate of deposit account mini-trial balance. 

4. Daily loan account mini-trial balance. 

5. Daily discount loan trial balance. 

6. Daily simple interest loan trial balance. 

7. Daily customer's without account trial balance. 

8. Daily posting journal containing all posted transactions for all 
account types in account number order. 

9. Daily posting journal containing posted transactions for all 
account types in amount order. 

1 0. Daily file containing all statements printed the previous. 

11. A laser notice file. 

12. The daily NSF checks notices in officer order (including copy). 
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If all the files are not present in the downloaded director, a message to that 
affect will be displayed on the screen. If they are not, a message showing each 
missing file is displayed as it is check. Several of the files listed above are not used 
for information but the presence of the file indicates completion of certain 

5 downloading steps. 

Fig. 11 is a main menu selection display for enablement and disablement of 
automatic e-mail generation. This function eliminates a need for a program user to 
remember to generate the e-statement each day at a certain time. When the 
program is running and auto e-mail is enable, the program monitors the time of day. 

10 When the selected time is reached, such as reflected in the next schedule field 1 52 
reflected in area 153, it checks to see if all reports needed have been downloaded. 
If they have, the program generates the daily e-statements and waits another 24 
hours, or other time designed period, before repeating the operation. If not, the 
program will repeat checking every few minutes or other time increments until all the 

15 files have been downloaded. During the waiting phase, the display is as shown in 
Fig. 1 1 . The last complete field 150 shows a date and time in the area 151 for the 
last completed cycle. The next schedule field 1 52 is completed in area 1 53 to show 
beginning of the next cycle for the generation of the e-statements. The last attempt 
field 1 54 will automatically reflect in area 1 55 a "complete" or "waiting" indicator. The 

20 missing files area 156 will automatically reflect in location 157 the number or 
identification of files that are missing and are required for the complete generation 
of the e-mail statement. Finally, current time in field 158 is reflected in area 159. 
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Fig. 12 reflects the view on the screen of the main menu selection for 
"broadcast". The broadcast field Is identified as "send to" at 160 and a list of 
selected classification of users, such as "all paying users" may be reflected and 
selected in area 161 by scrolling on 162. The subject of the broadcast is identified 

5 at field 163 in area 164, such as "monthly charges". A message describing the 
subject is reflected in the field 164 may be manually inserted in a message are 165 
and sent to the selected grouping of customers designated in 161 by clicking on the 
send 1 66. Alternatively, the message and the broadcast maybe cancelled by clicking 
at 167 which will return the user to the main menu. 

10 The software preferably utilized to implement the present invention may be 

any one of a comparatively low level machine code, such as visual basic. The logic 
and sub-routines utilized to form the e-statement method disclosed in Figs. 1 through 
14 is set forth below: 
frm About - 1 

15 Option Explicit 

' Reg Key Security Options... 

Const KEY_ALL_ACCESS = &H2003F 

' Reg Key ROOT Types... 
20 Const HKEY_LOCAL_MACHINE = &H80000002 
Const ERROR_SUCCESS = 0 

Const REG_SZ = 1 ' Unicode nul terminated string 
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Const REG DWORD = 4 



' 32-bit number 



Const gREGKEYSYSINFOLOC = "SOFTWARE\Microsoft\Shared Tools Location" 
Const gREGVALSYSINFOLOC = "MSINFO" 
5 Const gREGKEYSYSINFO = "SOFTWARE\MiGrosoft\Sliared ToolsMVISINFO" 
Const gREGVALSYSINFO = "PATH" 

Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" 
(ByVal hKe 

10 y As Long, ByVal IpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As 
Lon 

g, ByRef phkResult As Long) As Long 

Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" 
(ByV 

15 at hKey As Long, ByVal IpValueName As String, ByVal IpReserved As Long, ByRef 
IpType 

As Long, ByVal IpData As String, ByRef IpcbData As Long) As Long 

Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long 

20 Private Sub Form_Load() 

Me.Caption = "About" & " " & SystemName 

IblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision 
IblTitle.Caption = App.Title 
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End Sub 



Private Sub cmdSyslnfo_Click() 
5 Call StartSyslnfo 
End Sub 

Private Sub cmdOK_Click() 
Unload Me 
10 End Sub 

Public Sub StartSysinfoQ 
On Error GoTo SyslnfoErr 

15 Dim rc As Long 

Dim SyslnfoPath As String 

' Try To Get System Info Program Path\Name From Registry... 

If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, 
20 gREGVALSYSINFO, SyslnfoPath) T 
hen 

' Try To Get System Info Program Path Only From Registry... 
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Elself GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, 
gREGVALSYSINFOLOC, Sysl 
nfoPath) Then 

' Validate Existence Of Known 32 Bit File Version 
If (Dir(SyslnfoPath & •M\/ISINF032.EXE") <> "") Then 
SyslnfoPath = SyslnfoPath & •M\4SINF032.EXE" 

' Error - File Can Not Be Found... 
Else 

GoTo SyslnfoErr 
End If 

' Error - Registry Entry Can Not Be Found- 
Else 

GoTo SyslnfoErr 
End If 

frmAbout - 2 
Call Shell(SyslnfoPath, vbNormalFocus) 



Exit Sub 
SyslnfoErr: 



MsgBox "System Information Is Unavailable At This Time", vbOKOnly 
End Sub 

Public Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As 
5 String, 

ByRef KeyVal As String) As Boolean 
Dim i As Long ' Loop Counter 

Dim rc As Long ' Return Code 

Dim hKey As Long ' Handle To An Open Regis 

10 try Key 

Dim hDepth As Long ' 

Dim KeyValType As Long ' Data Type Of A Registry 

Key 

Dim tmpVal As String ' Tempory Storage For A R 

15 egistry Key Value 

Dim KeyValSize As Long ' Size Of Registry Key Va 

riable 



' Open RegKey Under KeyRoot {HKEY_LOCAL_MACHINE...} 

rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) ' Open 
Registry Key 
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If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError 



' Handle Error,. 



tmpVal = Strlng$(1024, 0) 



Allocate Variable Space 



KeyValSize = 1024 



' Mark Variable Size 



5 



' Retrieve Registry Key Value... 



rc = RegQueryValueEx(hKey, SubKeyRef, 0, KeyValType, tmpVal, KeyValSize) 
10 Get 

/Create Key Value 

If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError ' Handle Errors 
15 tmpVal = VBA. Left(tmpVal, lnStr(tmpVal, VBA.Chr(O)) - 1 ) 



' Determine Key Value Type For Conversion... 



Select Case KeyValType 



' Search Data Types... 



20 



Case REG SZ 



' String Registry Key Dat 



a Type 



KeyVal = tmpVal 



' Copy String Value 



Case REG DWORD 



' Double Word Registry Ke 
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y Data Type 

For i = Len(tmpVal) To 1 Step -1 ' Convert Each Bit 

KeyVal = KeyVal + Hex(Asc(Mid{tmpVal, i, 1))) ' Build Value Char. By Ch 

ar. 

5 Next 

KeyVal = Format$("&h" + KeyVal) ' Convert Double Word To 

String 
End Select 

10 GetKeyValue = True ' Return Success 

rc = RegCloseKey(hKey) ' Close Registry Key 

Exit Function ' Exit 

GetKey Error: * Cleanup After An Error Has Occured... 
15 KeyVal = ' Set Return Val To Empty 
String 

GetKeyValue = False ' Return Failure 

frmAbout - 3 

20 



rc = RegCloseKey{hKey) 
End Function 



' Close Registry Key 
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VERSION 5.00 
5 Begin VB.Form frmAbout 

BorderStyle = 3 'Fixed Dialog 
Caption = "About eStatement" 
CiientHeight = 3630 
ClientLeft = 45 
10 ClientTop = 330 
ClientWidth = 5865 
ClipControls = 0 'False 
Icon = (Icon) 
LinkTopic = "Form1" 
15 MaxButton = 0 'False 
MinButton = 0 'False 
ScaleHeight = 3630 
ScaleWidth = 5865 
ShowinTaskbar = 0 'False 
20 StartUpPosition = 1 'CenterOwner 
Tag = "About Projecti" 

Begin VB.PictureBox piclcon 
AutoSize = -1 'True 



BackColor = &HOOCOCOCO& 
ClipControls = 0 'False 
Height = 1260 
Left = 60 
Picture = (Bitmap) 

ScaleHeight = 1200 

ScaleMode = 0 'User 

ScaleWidth = 1200 

Tablndex = 2 

TabStop = 0 'False 

Top = 0 

Width = 1260 
End 

Begin VB.CommandButton cmdOK 



Cancel 


= -1 'True 


Caption 


= "OK" 


Default 


= -1 True 


Height 


= 345 


Left 


= 4245 


Tablndex 


= 0 


Tag 


= "OK" 


Top 


= 2625 


Width 


= 1467 



Begin VB.CommandButton cmdSyslnfo 



Caption 


= "&System Info. 


Height 


= 345 


1 aft 

Leu 




Tablndex 


- 1 


Tag 


= "&System Info...' 


Top 


= 3075 


Width 


= 1452 



10 End 

Begin VB.Label IblDescription 

Caption = <...> 

ForeColor = &H00000000& 

Height = 1170 
15 Left = 1380 

Tablndex = 6 

Tag = "App Description" 

Top = 1125 

Width = 4005 
20 End 

Begin VB.Label IblTitle 
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Alignment = 2 'Center 
5 Caption = "eStatement" 
BeginProperty Font 
Name = "Lucida Calligrapliy" 

Size = 24 

Charset = 0 
10 Weight = 400 

Underline = 0 'False 

Italic = 0 'False 

Strikethrough = 0 'False 
EndProperty 
15 ForeColor = &H00000000& 
Height = 480 
Left = 1230 
Tablndex = 5 
Tag = "Application Title" 

20 Top = 240 

Width = 4095 
End 

Begin VB.Line Line1 



BorderColor = &H00808080& 
BorderStyle = 6 'Inside Solid 
Index = 1 
X1 = 225 

X2 = 5657 

Y1 = 2430 

Y2 = 2430 

End 

Begin VB.Line Line1 
BorderColor = &HOOFFFFFF& 
BorderWidth = 2 
Index = 0 
X1 = 240 

X2 = 5657 

Y1 = 2445 

Y2 = 2445 

End 

Begin VB.Label IblVersion 

Alignment = 2 'Center 

Caption = 'Version" 

Height = 225 

Left = 1260 

Tablndex = 4 



Tag = "Version" 

Top = 780 

Width = 4095 
End 

Begin VB.Label IblDlscIaimer 
Caption 



= <...> 



ForeColor = &H00000000& 

Height = 825 

Left = 255 

10 Tablndex = 3 

Tag = "Warning: ..." 

Top = 2625 

Width = 3870 
End 
15 End 
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20 Option Explicit 

Dim Ds As Recordset. SQL As String 
Sub ClearFieldsQ 
txtFields(O) = "" 



txtFields(1) = "" 
t)ctFielcls(2) = "" 
txtFields(3) = 
Combo1.Listlnclex = 0 

5 chkFielcls(3) = 1 
chkFields(4) = 1 
chkFields(5) = 1 
chkFields(6) = 1 
chkFields(l) = 0 
10 chkFields(0) = 0 
chkDays(1) = 1 
chkDays(2) = 1 
chkDays(3) = 1 
chkDays(4) = 1 
15 chkDays(5) = 1 
chkDays(6) = 0 
t)ctFields(4) = 
lblLabels(11) = "" 
Screen.MousePointer 

20 

End Sub 

Sub LoadDataQ 

With tbIAccounts 



txtFields(O) = .'[User ID] 

txtFields(l) = '.[Account Number] 

txtFielcls(2) = ![Reference Number] 

txtFields(3) = ![Name] 
5 If Trim$(l[Account Type]) = "Checking" Then Combol .Listlndex = 0 

If Trim$(![Account Type]) = "Savings" Then CombolListlndex = 1 

If Trim$(![Account Type]) = "CD" Then CombolListlndex = 2 

If Trim$(l[Account Type]) = "Loan" Then Combol. Listlndex = 3 

chkFields(3) = Abs(![Report Balance]) 
10 chkFields(4) = Abs(![Report Transactions]) 

chkFields(5) = Abs(![Report NSF] = True) 

chkFields(6) = Abs(l[Attach Statement]) 

chkFields(l) = Abs(![Extract ASCII]) 

chkFields(O) = Abs(l[Extract Qwicken]) 
15 chkDays(1 ) = Abs(!Monday) 

chkDays(2) = Abs(!Tuesday) 

chkDays(3) = Abs(IWednesday) 

chkDays(4) = Abs(IThursday) 

chkDays(5) = Abs(!Friday) 
20 chkDays(6) = Abs(![Monthly Only]) 

txtFields(4) = [[Monthly Day] & "" 

lblLabels(11) = Format$(l[Last Report], "mm/dd/yyyy") 
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End With 
Screen.MousePointer = 0 

On Error Resume Next 
txtFields(1).SetFocus 
5 On Error GoTo 0 
End Sub 

Private Sub cmdAdd_Clicl<() 
ClearFields 
10 b(tFields(0) = CurrentID 
brtFields(1).SetFocus 
End Sub 

Private Sub cmdDelete_Click() 

15 
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If MsgBoxC'Delete this account?", vbYesNo + vbQuestion, "DELETE ACCOUNT") <> 
5 vbYes 

Then Exit Sub 

tbIAccounts.Seek "=", b<tFields(0), txtFields(l) 
If tblAccounts.Nol^atch = False Then 
tbIAocounts. Delete 
10 ClearFields 

tbIAccounts.Seek ">=", CurrentID, 0 

If tbIAccountsllUser ID] = CurrentID Then 

LoadData 
End If 
15 End If 
End Sub 



Private Sub cmdNExt_Click() 
On Error Resume Next 
20 tbIAccounts.MoveNext 

If Err > 0 Or tblAccounts.EOF Then tbIAccounts.Seek ">=", CurrentID, 0: If tbIAccount 
s.EOF Then Exit Sub 

If tblAccountsl[User ID] > CurrentID Then tbIAccounts.Seek ">=", CurrentID, 0 
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If tblAccounts![User ID] = CurrentID Then 

ClearFields 

Load Data 
End If 
5 End Sub 

Private Sub cmdPrevious_Click() 
tbIAccounts.MovePrevious 

If Err > 0 Or tbIAccounts.BOF Then tbIAccounts.Seek "<=", CurrentID, 9999999999# 
10 If tblAccountsl[User ID] > CurrentID Then tbIAccounts.Seek "<=", CurrentID, 999999999 
9# 

If tblAccountsl[User ID] = CurrentID Then 
ClearFields 
LoadData 
15 End If 

End Sub 

Private Sub cmdUpdate_Click() 
20 tbIAccounts.Seek "=", txtFields(O), txtFields(l) 

If tbIAccounts.NoMatch Then tblAccounts.AddNew Else tbIAccounts.Edit 
With tbIAccounts 
![User ID] = txtFields(O) 
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'.[Account Number] = txtFields(l) 
![Reference Number] = txtFields(2) 
![Name] = txtFields(3) 
![Account Type] = Combol 
![Report Balance] = (chkFields(3) = 1) 
[[Report Transactions] = (chkFields(4) = 1) 
![Report NSF] = (chkFields(5) = 1) 
![Attach Statement] = (chkFields{6) = 1) 
![Extract ASCII] = (chkFlelds(l) = 1) 
([Extract Qwicken] = (chkFields(O) = 1) 
l[Monday] = (chkDays(1) = 1) 
![Tuesday] = (chkDays(2) = 1) 
![Wednesday] = (chkDays(3) = 1) 
![Thursday] = (chkDays(4) = 1) 
![Friday] = (chkDays(5) = 1) 
![Monthly Only] = (chkDays(6) = 1) 
If [[Monthly Only] Then 
([Monthly Day] = Val(txtFields(4)) 
Else 

l[Monthly Day] = 0 
End If 
End With 
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tbIAccounts.Update 
5 Screen.MousePointer = 0 
txtFields(1).SetFocus 

End Sub 

10 

Private Sub cmdClose_ClickO 

Screen.MousePointer = vbDefault 

Unload Me 
End Sub 

15 

Private Sub Form_Load() 

Me.Caption = SystemName & " " & Me.Caption 

ClearFields 

txtFields(O) = CunrentiD 
20 tbIAccounts. Index = "UserAccount" 
tbIAccounts.Seek ">", CurrentID, 0 
If tbIAccounts.NoMatch = False Then 
If tblAccountsl[User ID] = CurrentID Then LoadData 
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End If 



End Sub 

5 Private Sub Foim_Unload(Cancel As Integer) 
Screen. MousePolnter = vbDefault 
End Sub 

frmAccounts - 1 

10 

VERSION 5.00 

Begin VB.Form frmAccounts 

BorderStyle = 3 'Fixed Dialog 
15 Caption = "Account Setup" 

ClientHeight = 4230 

ClientLeft = 1095 

ClientTop = 330 

ClientWidth = 6256 
20 Icon = (Icon) 

LinkTopic = "Fonn2" 

LockControls = -1 True 

MaxButton = 0 'False 
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MinButton = 0 'False 
ScaleHeight = 4230 
ScaleWidth = 6255 
ShowlnTaskbar = 0 'False 
StartUpPosition = 2 'CenterScreen 
Begin VB.TextBox txtFlelds 





— ivionxniy uaic 


DataSource 


= "datPrimaryRS' 


Height 


285 


Index = 


4 


Left 


5400 


MaxLength 


= 10 


Tablndex 


= 35 


Top = 


3300 


Width 


315 



End 

Begin VB.CheckBox chkDays 
Alignment = 1 'Right Justify 
Caption = "Report on Monday:" 
DataField = "Monday" 
DataSource = "datPrimaryRS" 
Height = 285 
Index = 1 



Left = 3660 
Tablndex = 34 
Top = 1740 

Width = 2055 
End 

Begin VB.Checl^Box chkDays 
Alignment = 1 'Right Justify 
Caption = "Report on Tueday:" 
DataField = "Tuesday" 
DataSource = "datPrimaryRS" 
Height = 285 
Index = 2 
Left = 3660 
Tablndex = 33 
Top = 2055 

Width = 2055 
End 

Begin VB.CheckBox chkDays 
Alignment = 1 'Right Justify 
Caption = "Report on Wednesday: 
DataField = "Wednesday" 
DataSource = "datPrimaryRS" 
Height = 285 



Index = 3 

Left = 3660 

Tablndex = 32 

Top = 2385 

5 Width = 2055 
End 
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10 

Begin VB.Checl^Box ctil^Days 
Alignment = 1 'Right Justify 
Caption = "Report on Thursday: 
DataField = "Thursday" 
15 DataSource = "datPrimaryRS" 
Height = 285 
Index = 4 
Left = 3660 
Tablndex = 31 
20 Top = 2700 

Width = 2055 
End 

Begin VB.CheckBox chkDays 



Caption = "Report Monthly only on the th" 

DataField = "Monthly Only" 
DataSource = "datPrimaryRS" 

Height = 285 

5 Index = 6 

Left = 3180 

Tablndex = 30 

Top = 3315 

Width = 2775 

10 End 

Begin VB.CheckBox chkDays 
Alignment = 1 'Right Justify 
Caption = "Report on Friday." 
DataField = "Friday" 
15 DataSource = "datPrimaryRS" 
Height = 285 
Index = 5 
Left = 3660 
Tablndex = 29 
20 Top = 3000 

Width = 2055 
End 

Begin VB.TextBox bctFields 
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DataField 


= "Name" 




DataSource 


= "datPrimaryRS" 




Height 


■■ 285 




Index = 


3 


5 


Left 


2040 




MaxLength 


= 50 




Tablndex 


= 2 




Top = 


1080 




Width 


3435 


3 10 


End 




:;:t; 


Begin VB.TextBox txtFieids 




DataField 


= "Reference Number" 




DataSource 


= "datPrimaryRS" 




Height = 


■■ 285 


;| 15 


Index = 


2 




Left 


2040 




MaxLength 


= 10 




Tablndex 


= 1 




Top = 


720 


20 


Width 


1575 



End 

Begin VB.CheckBox chkFields 
DataField = "Extract Ascii" 



-53- 



DataSource = "datPrimaryRS" 
Height = 285 
Index = 1 
Left = 2040 
Tablndex = 8 



frmAccounts - 3 

10 

Top = 3000 

Width =315 
End 

Begin VB.Checl^Box chkFields 



DataField 


= "Extract Qwicken" 


DataSource 


= "datPrimaryRS" 


Height 


285 


Index = 


0 


Left 


2040 


Tablndex 


= 9 


Top = 


3315 


Width 


315 



End 
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Begin VB.ComboBox Combol 

DataField = "Account Type" 

DataSource = "datPrimaryRS" 

Height = 315 
5 Left = 2040 

Style = 2 'Dropdown List 

Tablndex = 3 

Top = 1425 

Width = 1575 
10 End 

Begin VB.PictureBox picButtons 

Appearance = 0 'Flat 

BorderStyle = 0 'None 

ForeColor = &H80000008& 
15 Height = 360 

Left = 0 

ScaleHeight = 360 

ScaleWidth = 6345 

Tablndex = 18 
20 Top = 3780 

Width = 6345 

Begin VB.CommandButton cmdNExt 
Caption = "&Next" 
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Height 



= 300 



Left 



4200 



Tab Index 



= 28 



Top 



= 0 



Width = 975 
End 

Begin VB.CommandButton cmdPrevious 

Caption = "&Previous" 

Height = 300 

Left = 3180 

Tablndex = 27 

Top = 0 

Width = 975 
End 

Begin VB.CommandButton cmdClose 

Caption = "&Ciose" 

Height = 300 

Left = 5220 

Tablndex = 22 

Top = 0 

Width = 975 
End 

Begin VB.CommandButton cmdUpdate 



-56- 



Caption 



= "&Update' 



Height 



300 



Left 



2145 



Tab Index 



= 21 



Top 



0 



frmAccounts - 4 

Width - 975 
End 

Begin VB.CommandButton cmdDeiete 

Caption = "&Deiete" 

Height = 300 

Left = 1095 

Tablndex = 20 

Top = 0 

Width = 975 
End 

Begin VB.CommandButton cmdAdd 

Caption = "&Add" 

Height = 300 

Left = 60 



Tablndex = 19 
Top = 0 

Width = 975 
End 
5 End 

Begin VB.Checl<Box chkFieids 



DataField 


= "Attach Statement' 


DataSource 


= "datPrimaryRS" 


Height 


285 


Index = 


6 


Left 


2040 


Tablndex 


= 7 


Top = 


2700 


Width 


315 



15 End 

Begin VB.CheckBox chkFieids 



DataField 


= "Report NSF" 


DataSource 


= "datPrimaryRS 


Height 


285 


Index = 


5 


Left 


2040 


Tablndex 


= 6 


Top = 


2385 
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Width =315 
End 

Begin VB.CheckBox clikFields 





DataFieid 


= "Report Transactions' 


5 


DataSource 


= "datPrimaryRS" 




Height 


285 




Index = 


4 




Left 


2040 




Tablndex 


= 5 


10 


Top = 


2055 




Width 


315 




End 






Begin VB.Checl^Box chl^Fieids 




DataFieid 


= "Report Balance" 


15 


DataSource 


= "datPrimaryRS" 




Height 


: 285 




Index = 


3 




Left 


2040 




Tablndex 


= 4 


20 


Top = 


1740 




Width 


= 315 



End 

Begin VB.TextBox txtFields 



DataField 
DataSource 
Height 
Index 



"Account Number" 
= "datPrimaryRS" 
285 
1 



frmAccounts - 5 



Left = 2040 
5 MaxLength = 10 
Tablndex = 0 
Top = 380 

Width = 1575 
End 

10 Begin VB.TextBox txtFields 

BackColor = &H80000000& 
DataField = "ID" 
DataSource = "datPrimaryRS" 
Height = 285 

15 index = 0 

Left = 2040 
Locl<ed = -1 'True 
Tablndex = 11 
TabStop = 0 'False 

20 Top = 60 

Width = 735 
End 

Begin VB.Label IblLabels 



Alignment = 1 'Right Justify 
Caption = "Last Report:" 
Height = 255 
Index = 11 
5 Left = 4320 

Tablndex = 36 
Top = 60 

Width = 1815 
End 

10 Begin VB. Label IblLabels 

Caption = "Account Name:" 

Height = 255 

Index = 10 

Left = 120 
15 Tablndex = 26 

Top = 1080 

Width = 1815 
End 

Begin VB.Label IblLabels 
20 Caption = "Reference Number:" 
Height = 255 
Index = 9 
Left = 120 
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Tablndex = 25 

Top = 720 

Width = 1815 
End 

Begin VB.Label IblLabels 

Caption = "Extract ASCII:" 

Height = 255 

Index = 8 

Left = 120 

Tablndex = 24 

Top = 3000 

Width = 1815 
End 

Begin VB.Label IblLabels 

Caption = "Extract Qwicken:" 

Height = 255 

Index - 7 

Left = 120 
Tablndex = 23 

Top = 3315 

Width = 1815 



frmAccounts - 6 



End 

5 Begin VB. Label IblLabels 

Caption = "Attacli Statement:" 

Heiglit = 255 

Index = 6 

Left = 120 
10 Tablndex = 17 

Top = 2700 

Width = 1815 
End 

Begin VB.Label IblLabels 
15 Caption = "Report NSF:" 
Heiglit = 255 
Index = 5 
Left = 120 
Tablndex = 16 
20 Top = 2385 

Width = 1815 
End 

Begin VB.Label IblLabels 



Caption = "Report Transactions:" 
Height = 255 
Index = 4 
Left = 120 
Tablndex = 15 
Top = 2055 

Widtli = 1815 
End 

Begin VB.Label IblLabels 

Caption = "Report Balance:" 

Height = 255 

Index = 3 

Left = 120 

Tablndex = 14 

Top = 1740 

Width = 1815 
End 

Begin VB.Label IblLabels 
Caption = "Account Type:" 
Height = 255 
Index = 2 
Left = 120 
Tablndex = 13 



Top = 1425 

Width = 1815 
End 

Begin VB. Label IblLabels 

Caption = "Account Number." 

Height = 255 

Index = 1 

Left = 120 

Tablndex = 12 

Top = 380 

Width = 1815 
End 

Begin VB.Label IblLabels 

Caption = "Customer ID:" 

Height = 255 

Index = 0 

Left = 120 
Tablndex = 10 

Top = 60 

Width = 1815 
End 



frmAccounts - 7 
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Option Explicit 
5 Private Sub cmciApply_Click() 

SaveSetting App.Title, "Settings", "AutoTime", IblTime 
SaveSetting App.Title, "Settings", "AutoBetween", IblBetween 
cmdCancel_Click 
End Sub 

10 Private Sub cmdCancel_Click() 
Unload Me 
End Sub 

Private Sub Form_Load() 
15 Me. Caption = SystemName & " " & Me.Caption 

IblTime = GetSetting(App.Title, "Settings", "AutoTime", "08:00 AM") 
IblBetween = GetSetting(App.Title, "Settings", "AutoBetween", "15") 
End Sub 

20 Private Sub UpDown1_DownClick() 

IblTime = Format$(DateAdd("n", -5, IblTime), "hh:mm AMPM") 
End Sub 
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Private Sub UpDown1_UpClick() 

IblTime = Format$(DateAdd("n", 5, IblTime), "hh:mm AMPM") 
End Sub 

5 Private Sub UpDovi/n2_DownClicl<() 
Dim L% 

L% = Val(lbiBetween) 
If L% = 5 Then Exit Sub 
IblBetween = L% - 5 
10 DoEvents 
End Sub 

Private Sub UpDown2_UpClick() 
Dim L% 
15 L% = Val(lblBetween) 
lfL% = 60 Tiien Exit Sub 
IblBetween = L% + 5 
DoEvents 
End Sub 

20 

frmAutotime - 1 
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VERSION 5.00 

Object = "{86CF1 D34-0C5F-1 1 D2-A9FC-0000F8754DA1}#2.0#0"; "MSC0MCT2.0CX" 
Begin VB.Form frmAutotime 
BorderStyle = 3 'Fixed Dialog 
5 Caption = "Auto Setup" 
ClientHeight = 1770 
ClientLeft = 45 
ClientTop = 330 
ClientWidth = 4260 
10 LinkTopic = "Form1" 
MaxButton = 0 'False 
MinButton = 0 'False 
ScaleHeight = 1770 
ScaleWidth = 4260 
15 ShowlnTaskbar = 0 'False 

StartUpPosltion = 1 'CenterOwner 
Begin VB.CommandButton cmdCancel 
Caption = "&Cancel" 
Height = 300 
20 Left = 2340 
Tablndex = 7 
Top = 1320 

Width = 975 
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End 

Begin VB.CommandButton cmdApply 

Caption = "&Save" 

Heiglit = 300 
5 Left = 900 

Tablndex = 6 

Top = 1320 

Width = 975 
End 

10 Begin MSComCtl2.UpDown UpDownl 

Heiglit = 285 

Left = 3480 

Tablndex = 1 

Top = 420 

15 Width = 240 

_ExtentX = 423 

_ExtentY = 503 

_Version = 393216 

Enabled = -1 True 
20 End 

Begin MSComCtl2.UpDown UpDown2 

Height = 285 

Left = 3480 
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Tablndex = 4 
Top = 780 

Width = 240 
_E>ctentX = 423 
5 _ExtentY = 503 

_Version = 393216 
Enabled = -1 'True 
End 

Begin VB.Labei Label4 
10 Caption = "Minutes between Attempts:" 
Height = 255 
Left = 420 
Tablndex = 5 
Top = 780 

15 Width = 2055 
End 

Begin VB.Labei IblBetween 
Alignment = 1 'Right Justify 
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frmAutotime - 2 



BackColor = &H8000000E& 
5 BorderStyle = 1 'Fixed Single 

Caption = "15" 

Height = 285 

Left = 2580 

Tablndex = 3 
10 Top = 780 

Width = 795 
End 

Begin VB.Label Label2 

Caption = "Begin e-Mail:" 
15 Height = 255 

Left = 420 

Tablndex = 2 

Top = 420 

Width = 1335 
20 End 

Begin VB.Label IblTime 

Alignment = 1 'Right Justify 

Bacl<Color = &H8000000E& 



BorderStyle = 1 'Fixed Single 
Caption = "08:00 AM" 
Height = 285 
Left = 2580 
5 Tablndex = 0 
Top = 420 

Width = 795 
End 
End 

10 

frmBroadcast - 1 



Option Explicit 

15 

Private Sub cmdCancel_CliGl^() 
Unload Me 

Set frmBroadcast = Nothing 
End Sub 

20 

Private Sub GmdSend_Click() 
IfCombol ="" Then 

MsgBox 'This e-mail has no send to address.", vblnformation, "NOTHING TO DO" 
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Exit Sub 
End If 

lfTrim$(Text2) = "" Then 
If MsgBox("This e-mail has no subject. Do you want to send anyway?", vbQuestion 

5 + 

vbYesNo, "NO SUBJECT') <> vbYes Then Exit Sub 
End If 

MAPISessionI .SignOn 
10 MAPIMessagesI .SessionID = MAPISessionI .SessionID 
tblUsers.MovePirst 
While NottblUsers.EOF 

If {(Combol .Listlndex = 2 Or (Combol .Listlndex = 1 And tbIUserslCharge = True)) And 
t 

15 blUserslSuspend = False) Or (Combol. Listlndex > 1 And tblUsersl[Sort Name] = 
Combol) 
Then 

MAPIMessagesI .Compose 

MAPIMessagesI .RecipDIsplayName = tblUsersl[Address Name] 
20 MAPIMessagesI .RecipAddress = tblUsersl[e-Mail Address] 
MAPIMessagesI. MsgSubject = Text2 
MAPIMessagesI .MsgNoteText = Text1 
MAPIMessagesI .Send 

-75- 



If Combol .Listlndex > 2 Then GoTo Endit 
End If 

tbIUsers.MoveNext 
Wend 
5 Endit: 

MAPISessionI .SignOff 
cmdCancel_Cllck 
End Sub 

10 Private Sub Form_Load() 

Me.Caption = SystemName & " " & Me.Caption 

Combol. Addltem "" 

Combol. Addltem "All Users" 

Combol .Addltem " All Paying Users" 
15 tbIUsers. Index = "Sort Name" 

tbiUsers.MoveFlrst 

While NottblUsers.EOF 
Combol .Addltem tblUsers![Sort Name] 
tbIUsers.MoveNext 
20 Wend 

Combol .Listlndex = 0 

End Sub 
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frmBroadcast - 1 
VERSION 5.00 

5 Object = "{20C62CAE-1 5DA-1 01 B-B9A8-444553540000}#1 . 1#0"; "MSMAPI32.0CX" 
Begin VB.Form frmBroadcast 

BorderStyle = 3 'Fixed Dialog 

Caption = "e-Mail Broadcast" 

ClientHeight = 4890 
10 ClIentLeft = 45 

ClientTop = 330 

ClientWidth = 7980 

Icon = (Icon) 

LinkTopic = "Form1" 
15 LockControls = -1 'True 

MaxButton = 0 'False 

MinButton = 0 'False 

ScaleHeight = 4890 

ScaleWidth = 7980 
20 ShowlnTaskbar = 0 'False 

StartUpPosition = 2 'CenterScreen 

Begin MSMAPl.MAPIMessages MAPIMessagesI 
Left = 2000 

-77- 



Top = 2100 

_ExtentX = 1005 
_ExtentY = 1005 
_Version = 393216 
AddressEclitFielclCount= 1 
AddressModifiable= 0 'False 
AddressResolveUI= 0 'False 
FetchSorted = 0 'False 
FetchUnreadOnly = 0 'False 
End 

Begin MSMAPl.MAPISession MAPISessionI 



Left 


3240 


Top = 


2100 


_E)ctentX 


= 1005 


_ExtentY 


= 1005 


_Version 


= 393216 


DownloadMail 


= 0 'False 


LogonUI 


= -1 'True 


NewSession 


= -1 'True 


Password 


= "estatement" 


UserName 


= "estatement" 



End 

Begin VB.TextBox Text2 
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Height =315 

Left = 2040 

Tablndex = 1 

Top = 600 

5 Width = 5715 
End 

Begin VB.CommandButton cmdCancel 

Cancel = -1 True 

Caption = "&Cancel" 

10 Height = 375 

Left = 4080 

Tablndex = 4 

Tag = "Cancel" 

Top = 4320 

15 Width = 1095 
End 

Begin VB.CommandButton cmdSend 

Caption = "&Send" 

Height = 375 

20 Left = 2580 
Tablndex = 3 



frmBroadcast - 2 
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Tag = "OK" 

Top = 4320 

Width = 1095 

5 End 

Begin VB.TextBox Text1 
Height = 3015 
Left = 180 
l\/lultiLine - -1 'True 

10 ScrollBars = 2 Vertical 
Tablndex = 2 
Top = 1080 

Width = 7575 
End 

15 Begin VB.ComboBox Combol 



Height 


= 315 


Left 


= 2040 


Sorted 


= -1 True 


Style 


= 2 'Dropdown List 


Tablndex 


= 0 


Top 


= 180 


Width 


= 3315 



End 



Begin VB. Label Label 1 
Caption = "Subject:" 





Height 


= 255 




Index 


= 1 


5 


Left 


= 900 




Tablndex 


= 6 




Top 


= 600 




Width 


= 915 




End 




O 10 


Begin VB.Label LabeH 




Caption 


= "Sen 


ill 


Height 


= 255 


fll 


Index 


= 0 




Left 


= 900 




Tablndex 


= 5 




Top 


= 240 




Width 


= 915 




End 






End 





20 

frmGenerate - 1 



Option Explicit 
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Dim FilNum%, CancelFlag% 

Sub ReadLoansO 'Read the loan trial balance information 

Dim A$, B$, C$, X%, FilNum%, Account$, FiIeName$, Pages%, CurrentPage%, 
Oldlndex$ 
5 Oldlndex$ = tbIAccounts. Index 

tbIAccounts. Index = "Account Number" 
tbIBalances. Index = "PrimaryKey" 
ForX% = 1 To2 

If X% = 1 Then FileName$ = "TbalOOS.prn" Else FileName$ = "Tbal007.prn" 
10 If Dir(ReportPath & FileName) = Then GoTo NextFile 
FilNum% = FreeFile 

Open ReportPath & FileName For Input As FilNum% 
Line Input #FilNum%, A$ 
Line Input #FilNum%, A$ 
15 LoanDate = Mid$(A$, 47, 2) & "-" & Mid$(A$, 49. 2) & "-" & Mid$(A$, 51 , 2) 
LoanDate = Format$(LoanDate, "mm-dd-yyyy") 
Pages% = Val(Mid$(A$, 74, 4)) 
CurrentPage% = 0 
Label 1 = "" 

20 Label2 = "Reading " & FileName$ & 
ProgressBarl .Value = 0 
ProgressBarl .Visible = True 
DoEvents 
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While Not EOF(FilNum%) 
Line Input #FilNum%, A$ 
A$ = RTrim$(A$) 
lfA$ = Chr$(12)Then 
5 CurrentPage% = CurrentPage% + 1 

If CurrentPage% < Pages% Then Prog ressBarl .Value = (CurrentPage% / 

Pages%) 
MOO 

DoEvents 
10 GoTo NextLlne 

End If 

If Len(A$) < 80 Then GoTo NextLine 
Accx)unt$ = Trinn$(Mid$(A$, 2, 11)) 
If Val(Account$) > 0 Then 'New Loan 

15 tbIAccounts.Seek "=", Account$ 

If tbIAccounts.NoMatch = True Then GoTo NextLine 
Line Input #FilNum%, B$ 
Line Input #FilNum%, C$ 
With tbIBalances 
20 Labell = "Adding Loan " & Account$ 

DoEvents 

.Seek "=", Accounts 
If .NoMatch Then .AddNew Else .Edit 
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On Error Resume Next 
■.[Account] = Accounts 
![Last Update] = LoanDate 
![Balance] = CCurCTrim$(Mid$(A$, 51. 12))) 
5 If lsDate(Mid$(A$, 1 24, 8)) Then ![Date of Last Deposit] = Format$(Mid$ 

(A$,124.8)) 

If lsDate(Mid$(B$, 63, 8)) Then l[Maturity Date] = Format$(Mid$(B$, 63, 
8), "mm/dd/yyyy") 

If lsDate(Mid$(C$. 63, 8)) Then pext Due Date] = Format$(Mid$(C$, 63, 

10 8), "mm/dd/yyyy") 

![Net Payoff] = CCur(Trim$(Mid$(C$, 50, 12))) 

![Rate] = CSng(Trim$(Mid$(C$, 76, 7))) 

![Payment] = CCur(Trim$(Mid$(A$, 74, 10))) 

![YTD Interest] = CCur(Trim$(Mid$(C$, 85, 11))) 
15 ![Misc] = Trim$(Mid$(B$, 14, 33)) 

{[Last Deposit] = CCur(Trim$(Mld$(B$, 73, 10))) 'Past Due Amount 

If Err = 0 Then .Update Else .CancelUpdate 

On Error GoTo 0 
End With 

20 

frmGenerate - 2 



End If 
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NextLine: 
Wend 
NextFile: 
Close FilNum% 
5 Next X% 

ProgressBarl .Visible = False 
Label2 = "" 
Labell = "" 

tblAccounts.lndex = Oldlndex$ 

10 End Sub 

Function FNum(A As String) As String 

Dim L% 
A$ = Trim$(A$) 
L% = Len(A$) 
15 If L% > 4 Then 

FNum = String(L% - 4, "x") & Right$(A$. 4) 

Else 

FNum = A$ 
End If 
20 End Function 



Function Strip(AA$) As String 
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Do 

If Left$(AA$, 1) = Chr$(10) Then 

AA$ = Mid$(AA$, 2) 
Else 
5 Exit Do 
End If 
Loop 
Do 

If Right(AA$, 1) = Chr$(10) Then 
10 AA$ = Left$(AA$, Len(AA$) - 1 ) 

Else 
Exit Do 

End If 

Loop 
15 Strip = AA$ 

End Function 

Sub MakeStatementsO 

Dim FilNum%, A$, S$(8), Account$, FilNum2%, X%, Page%, FileName$, D$, SDate$, 
TCD$, O 
20 ldAccount$, L% 

Accounts = "": OldAccount$ = "": 
Dim TestLine$ 

If ReportPath & "StmtOQO.PRN" = "" Then Exit Sub 
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Label2 = "Reading account statements..." 
tbIAccounts.lndex = "Account Number" 
FilNum% = FreeFile 

Open ReportPath & "STMT090.prn" For Input As FilNum% 
5 Line Input #FilNum%, A$ ' Header Line 
Wliile Not EOF(FilNum%) 
Line Input #FilNum%, A$ 
If A$ <> Chr$(12) Then GoTo NextLine 
'Read next 8 line into the buffer 
10 NextSLine: 
Erase S$() 
ForX%= 1 To 8 
Line Input #FilNum%, S$(X%) 
If S$(X%) = Chr$(12) Then GoTo NextSLine 
15 Next 

Account$ = Mid$(S$(5), 54, 8) 
LabeH = Accounts 
DoEvents 

20 frmGenerate - 3 

Page% = Val(Trim$(Mid$(S$(5), 78, 3))) 
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SDate = Mid$(S$(6), 73. 8) 

tbIAccounts.Seek "=", Val(Account$) 

If tbIAccounts.NoMatch Then GoTo NextLine 

5 If tblAccounts![Attach Statement] = False Then GoTo NextLine 
Labell = "Creating statement for " & Account$ 
DoEvents 

FilNum2% = FreePile 

FileNameS = Format$(Val(Account$), "00000000") & Format$(SDate$, "mm-dd-yy") 
10 & ". 
HTM" 

If Accounts <> OldAccount$ Then 
Open App.Path & T & FiieName For Output As FilNum2% 
Print #FilNum2%, "<P><IMG SRC= " & GIFName & " <FONT COLOR=#FF0000> 
15 <FONT SIZE 

=" & Format$(StatementFont%, "##") & ">" & " " & SystemName & " from "; BankName 
&" 

<SUB><SMALL>Member FDIC</SMALL></SUB></FONT></P>" 

Print #FilNum2%, "<P><PRE><FONT SIZE=2><F0NT COLOR=#0000FF>" 
20 Print # F I I N u m 2 % , 



Print #FilNum2%, "<B>NOTE: For your convenience only! This statement does not 
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represent official" 

Print #FilNum2%, " banl< records. Your statement will be mailed to you. 
Refer to your" 

Print #FilNum2%, " mailed copy for important disclosures concerning your 
5 account. </B>" 

Print #FjlNum2% 



Print #FilNum2%, "<FONT COLOR=#000000>" 
10 Else 

Open App.Path & "\" & FileName For Append As FilNum2% 
Print #FilNum2%, "<P><PRE><FONT SIZE=2><F0NT COLOR=#FF0000>" 
Print #FilNum2%, String(36, 45) & " Page " & Page% & " " & String(36, 45) 
Print #FilNum2%, "<FONT COLOR=#000000>" 
15 End If 

OldAccount$ = Account$ 

Print #FIINum2%, "* Your account name, address *" & Mid$(Strip(S$(4)), 42) 

TestLine$ = "* and a portion of your account*" & Mid$(Strip(S$(5)), 42) 
L% = lnStr(TestLine$, Account$): If L% <> 0 Then Mid$(TestLine$, L%, (Len(Account 
20 $) - 4)) = String$(Len(Account$) - 4, "x") 
Print #FilNum2%, TestLine$ 

Print #FilNum2%, "* number have been omitted for *" & Mid$(Strip(S$(6)), 42) 
Print #FilNum2%, "* your security. *" & Mid$(Strip(S$(7)), 42) 
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Print #FilNum2%, String(32, " ") & Mid$(Strip(S$(8)), 42) 
While Not EOF(FilNum%) 
Line Input #FilNum%, A$ 
If A$ = Chr$(12) Then 'New Statement 
5 Print #FilNum2%, "<FONT></P>" 

Close FilNum2% 
GoTo NextSLine 
End If 

TestLine$ = Strip(A$) 

10 L% = lnStr(T6StLine$, Accounts): If L% <> 0 Then Mid$(TestLine$, L%, (Len(Accou 
not$) - 4)) = String(Len(Account$) - 4, "x") 

If Mid$(TestUne$, 41, 7) = "CREDITS" Then Mid${TestLine$, 5, 4) = "xxxx" 

If Mid${TestLine$, 29, 12) = "ACCOUNT NO. " Then Mid$(TestLine$, 43, 4) = "xxxx 

15 L% = lnStr(TestLine$, "ACCT.-"): If L% <> 0 Then Mid$(TestLine$, L% + 7, 4) = 
"xxxx" 

If lnStr(A$, "NUMBER OF ITEMS") = 0 Then Print #FilNum2%, TestLine$ 
Wend 

Print #FilNum2%, "<FONT></P>" 
20 Close FilNum2% 
NextLine: 
Wend 
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Close FilNum% 
5 Close FilNum2% 

tblAccounts. Index = "Account Seq" 
End Sub 

Private Sub cmdCanceI_Click() 
10 CancelFlag% = True 
Screen.MousePolnter = 0 
Close FilNum% 
Unload Me 

Set frmGenerate = Nothing 
15 End Sub 

Private Sub Form_Load() 
Verify that necessary files are present 
Me. Caption = SystemName & " " & Me. Caption 
20 Dim HoldPath$ 

HoldPath$ = ReportPath 

If ReportSet = "Prior" Then ReportPath = ReportPath & "l_ATEST\": ReportDateAdd 
-1 
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On Error GoTo 0 

Show 

DoEvents 

5 Dim A$, AA$(2), SQL$, X%, f%, FileName$, L%, SCount%, FileNum3%, Pdate$, 
HasAttachmen 
t%, TCD$, SL0C& 
Dim ECount& 

10 tbIAccounts. Index = "Account Seq" 
tbITrans. Index = "Reference" 
Screen. MousePointer =11 

'Build Statements 
15 If GStatement% = True Then MakeStatements 



Label! = "Extracting Account Balances..." 
DoEvents 

'Delete old balance and Update New 

if GBalance% <> True Then GoTo NextFunctionl 

SQL = "Delete * from Balances" 
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dbs.Execute SQL 

SQL = "Update Accounts Set Sequence = 1" 
dbs.Execute SQL 

If GLoans% = True Then ReadLoans 

5 

If ReportPath & "MNTB002.PRN" <> "" Then 
FilNum% = FreeFile 
Forf% = 2To4 

FileName$ = "MNTB" & Format$(f%, "000") & ".prn" 
10 Open ReportPath & FileName For Input As FilNum% 
Do Until EOF(FilNum%) 
Line Input #FilNum%, A$ 
DoEvents: If CancelFlag = True Then Exit Sub 
•A$ = Trim$(A$) 
15 AA${1) = Left$(A$, 64) 
AA$(2) = Mid$(A$, 68) 
ForX% = 1To2 
A$ = Trim$(Left$(AA$(X), 10)) 
lfVal(A$)>OThen 
20 tbIAccounts.Seek "=", A$, 1 

If tbIAccounts.NoMatch = False Then 
Label! = "Adding Balance for " & A$ 
DoEvents 
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frmGenerate - 5 

tblBalances-AddNew 
5 tbIBalanceslAccount = Val(A$) 

Select Case f/o 
Case 2, 3 

tblBalanceslBalance = CCur(Trim$(Mid$(AA$(X%), 25, 17))) 
If lsDate(Trim$(Right$(AA$(X), 9))) Then tblBalances![Date 
10 of Last Deposit] = Trim$(Right$(AA${X%), 9)) 

tblBalances![Last Deposit] = CCur(Trim$(Mid$(AA$(X%), 39, 1 

7))) 

Case 4 

tblBalanceslBalance = CCur(Trim$(Mid$(AA$(X%), 25, 13))) 
15 if lsDate(Mid$(AA$(X), 47, 8)) Then tblBalancesl[Date of La 

st Deposit] = Mid$(AA$(X%), 47, 8) 

If lsDate(Mid$(AA$(X), 38, 8)) Then tbIBalancesl[Maturity D 
ate] = Mid$(AA$(X%), 38, 8) 

tblBalancesl[Last Deposit] = CCur(Trim$(Mid$(AA$(X%), 55, 1 

20 07))) 

Case Else 
End Select 
tbIBalances. Update 
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End If 
End If 
Next 
Loop 

5 Close FIINum% 
Next 'f% 
End If 



NextFunctlonl: 
10 If GTrans <> True Then GoTo NextFunction2 
'Load New Transactions 
tbIAccounts.lndex = "REFERENCE" 
If ReportPath & "PJNL001.PRN" <> "" Then 

FilNum% = FreeFile 
15 FlleName$ = "PJNL001 .PRN" 

Open ReportPath & FileName For Input As FilNum% 

Line Input #FilNum%, A$ 

Line input #FilNum%, A$ 

Pdate$ = Mid$(A$, 68, 2) & "-" & Mid$(A$, 70, 2) & "-" & Mid$(A$, 72, 2) 
20 Pdate$ = Format$(Pdate$, "mm-dd-yyyy") 
tbITrans. Index = "Duplicate" 
Do Until EOF(FilNum%) 
Line Input #FIINum%, A$ 



DoEvents: If CancelFlag = True Then Exit Sub 
If Len(A$) < 100 Then GoTo NextLine 
AA$(1) = Left$(A$, 64) 
AA$(2) = Mid$(A$, 71) 
5 ForX%=1To2 

A$ = Trim$(Left$(AA$(X), 9)) & Mid$(AA$(X), 11,2) 
lfA$ = "116160" Then Stop 
If Vai(A$)> 100000 Then 
tblAccounts.Seek "=", A$ 
10 If tbIAccounts.NoMatch = False Then 

LabeH = "Adding Transaction(s) for " & A$ 
DoEvents 

tbITrans.Seek "=", Val(A$), Pdate$. Val(Mid$(AA$(X%), 44, 6)) + 0, CCur 
(Trim$(Mid$(AA$(X%), 19, 13))) 
15 If tbITrans.NoMatch = Tme Then 

tblTrans-AddNew 
tbITranslReference = Val(A$) 
tbITranslTC = Mid${AA$(X), 15, 3) 
tbITranslAmount = CCur(Trim$(Mid$(AA$(X%), 19,1 3))) 
20 tbITransiSource = Mid$(AA$(X%), 34, 4) 

tbITranslSerial = Val(Mid$(AA$(X%), 44, 6)) + 0 

frmGenerate - 6 
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tbITranslDate = Pdate$ 
tbITrans.Update 
End If 
End If 
End If 
Next 
NextLine: 
Loop 

Close FilNum% 

tbIAccounts. Index = "Account Seq" 
tbITrans.lndex = "Reference" 
End If 

'Delete NSF and Add new 
SQL = "Delete * from NSF" 
dbs.Execute SQL 

If ReportPath & "CF_026.PRN" <> "" Then 
Dim Acc$, Bal As Currency, B$, SAcc$ 
FilNum% = FreeFile 
FileName$ = "CF_026.PRN" 
Open ReportPath & FileName For Input As FilNum% 
Do Until EOF(FilNum%) 
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Line Input #FilNum%,A$ 

DoEvents: If CancelFlag = True Then Exit Sub 

If Lefl$(A$, 20) = " " Then Acc$ = "": Bal = 0: GoTo NextNSF 

Acc$ = Trim$(Mid$(A$, 5, 8)) 
5 If Acc$ = "" Then GoTo NextNSF 

If Val(Acc$) = 0 Then GoTo NextNSF 
'If Acc$ = "124990" Then Stop 
tbIAccounts.Seek "=", Acc$, 1 
If tbIAccounts.NoMatch = False Then 
10 tblAccounts.Edit 

tbIAccountslSequence = 0 

tblAccounts.Update 

B$ = Mid$(A$, 106, 15) 

'User Reverinst here 
15 L% = lnStrRev(B$, "*") 

B$ = Mid$(B$, L% + 1) 

SAcc$ = Acc$ 

Bal = CCur(B$) 

Label! = "Adding NSF for " & Acc$ 
20 DoEvents 
End If 
NextNSF: 

If Bal <> 0 And Mid$(A$, 115, 1) = "." Then 
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tblNSF-AdclNew 
tblNSFlAccount = SAcc$ 
tbINSFIBalance = Bal 
tblNSFlAmount = CCur(Micl$(A$, 106, 12)) 
5 tbINSFlSerial = Val(Mid$(A$, 80, 6)) 
tblNSF.Update 
End If 
Loop 
End If 
10 Close FilNum% 

NextFunction2: 
'Build e-mail 
Dim T$, D$ 
15 MAPISessionlSignOn 

MAPIMessageslSessionlD = MAPISessionlSesslonlD 
tbIUsers.MoveFirst 
tbIAccounts.lndex = "User Seq" 
tbIBalances.lndex = "PrimaryKey" 

20 

frmGenerate - 7 
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tblNSF.Index = "Account" 
While Not tbIUsers.EOF 



SCount% = 0 
5 DoEvents: If CancelFlag = True Then Exit Sub 

'Check for suspened user' 

If tbIUserslSuspend = True Then GoTo NextUser2 

10 'Build the first part of the ennail message 

MAPIMessagesI .Compose 

MAPIMessagesl.RecipDisplayName = tblUsers![Address Name] 
MAPIMessagesI RecipAddress = tblUsers![e-Mail Address] 
15 MAPIMessagesI .MsgSubject = SystemName & " for " & Format$(Pdate$, "dddd mmm 
dd,yy 

yy") 

'Has the user confirmed usage? if not send a confirmation 
20 If tbIUserslConfirmed = False Then 

MAPIMessagesI .MsgSubject = "eStatement address confirmation " & Format$(Now, 
"m 

m/dd/yyyy") 
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T$ = "Dear Customer: " & Chr$(10) & Chr$(10) 

T$ = T$ & "Please confirm receipt of this eStatement Address Confirmation by" & 
Chr$(10) 

T$ = T$ & "replying to this e-mail. Clicl< the REPLY button of your" & Chr$(10) 
5 T$ = T$ & "e-mail program and then the SEND button. No other action is" & Chr$ 
(10) 

T$ = T$ & "required. Upon receipt of your confirmation we will begin" & Chr$(10 

) 

T$ = T$ & "daily eStatement services." & Chr$(10) & Chr$(10) 
10 T$ = T$ & "Thank you for your business..." & Chr$(10) & Chr$(10) 
T$ = T$ & " The Lamar Bank eStatement Team" 
T$ = T$ & " eStatement@lamarbanktexas.com " 
GoTo NextUser 
End If 

15 

'Build Text for email 

T$ = SystemName$ & " from " & BankName$ & " Member FDIC" & Chr$(10) 
T$ = T$ & "As of close of business " & Format$(Pdate$, "dddd mmm-dd-yyyy") & 
Chr$( 
20 10) 

tblAccounts.Seek ">=", tblUsers(O), 0 

If tblAccounts![User ID] <> tblUsers![ID] Then GoTo NextUser 
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While Not tbIAccounts.EOF 
If tblAccounts![User ID] <> tblUsers![ID] Then GoTo NextUser 
tbINSF.Seek "=", tbIAccounts ([Account Number] 
5 If tbINSF.NoMatch = False Then 

If T$ <> "" Then T$ = T$ & 



="&Chr$(10) 

T$ = T$ & " NSF NOTICE-NSF NOTICE -" & Chr$(10) 

10 T$ = T$ & "NSF Account: " & FNum(tblNSF!Account) & " - " & tblAccountslNam 
e&Chr$(10) 

T$ = T$ & " Balance: " & Format$(tblNSFIBalance. "Currency") & Chr 
$(10)&Chr$(10) 

T$ = T$ & "NSF Checks:" & Chr${10) 
15 T$ = T$&" SERIAL AMOUNT" & Chr$(10) 

T$ = T$&" "&Chr$(10) 

While Not tbINSF.EOF 
If tbINSFIAccount <> tblAccounts![Account Number] Then GoTo NextNSF2 
T$ = T$ & " " & Fonnat$(tblNSF!Serial, "000000 ") & Righ 

20 t$(Space$(12) & Format$(tblNSF!Amount, "Currency"), 12) & Chr$(10) 
tbINSF.MoveNext 
Wend 
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End If 
5 NextNSF2: 

'Check here for report day 

If tblAcoounts![Monthly Only] = False And tblAccounts(Weekday(Pdate$) + 10) = F 
alse Then GoTo NextAccountS 

'code to check date for Monthly only here 
10 tbIBalances.Seek "=", tblAccounts![Account Number] 

If tbIBalances.NoMatch = False And GBalance = True Then 

If T$ <> "" Then T$ = T$ & 



===="& Chr$(10) 

15 D$ = Dlr$(App.Path & "\" & Format$(tblAccounts![Account Number], "0000000 

0") & "*.HTM") 

If D$ <> "" And GStatement% = True Then 

T$ = T$ & "A Statement for this account Is attached today!" & Chr$(10) 
End If 

20 Select Case tblAccounts![Account Type] 

Case "Checking" 

T$ = T$ & " Checking Account: " & FNum(tblAccountsl[Account Number 
])&"-"& tbIAccountslName & Chr$(10) 
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If tbIBalanceslBalance = -99999999.99 Then 
T$ = T$ & "There is a full balance hold on this account!" & Chr$(1 

0) 

Else 

5 T$ = T$ & " Available Balance: " & Format$(tblBalances!Balance 

, "Currency") & Chr$(10) 
End If 

If tblBalances![Last Deposit] <> 0 Then T$ = T$ & " Last Depo 
sit: " & Format$(tblBalances![Last Deposit], "Currency") & " on " & Format$(tblBal 
10 ances![Date of Last Deposit], "mm/dd/yyyy") & Chr$(1 0) 
T$ = T$&Chr$(10) 
Case "Savings" 

T$ = T$ & " Savings Account: " & FNum(tblAccounts![Account Numbe 
r]) & " - " & tblAccountslName & Chr$(10) 
15 If tbIBalanceslBalance = -99999999.99 Then 

T$ = T$ & "There is a full balance hold on this account!" & Chr$(1 

0) 

Else 

T$ = T$ & " Available Balance: " & Fomfiat$(tblBalances!Balance 
20 , "Currency") &Chr$(10) 
End If 

If tblBalancesl[Last Deposit] <> 0 Then T$ = T$ & " Last Depo 
sit: " & Format$(tblBalanceslILast Deposit], "Currency") & " on " & Format$(tblBal 
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ances![Date of Last Deposit], "mm/dd/yyyy") & Chr$(10) 
T$ = T$&Chr$(10) 
Case "CD" 

T$ = T$ & " Certificate Number: " & FNum(tblAccounts![Account Numb 
5 er]) & " - " & tbIAccountslName & Chr$(1 0) 

If tbIBalances! Balance = -99999999.99 Then 
T$ = T$ & "There is a full balance hold on this account!" & Chr$(1 

0) 

Else 

10 T$ = T$&" Available Balance: " & Format$(tblBalances!Balanc 

e, "Currency") &Chr$(10) 
End If 

T$ = T$ & " Maturity Date: " & Format$(tblBalancesl[Maturl 
ty Date], "mm/dd/yyyy") & Chr$(10) 
15 T$ = T$&" Next Interest Date: " & Format$(tblBalances![Date of 

Last Deposit], "mm/dd/yyyy") & Chr$(10) 

If tblBalances![Last Deposit] <> 0 Then T$ = T$ & " Accrued Inter 
est: " & Format$(tblBalances!ILast Deposit], "Currency") & Chr$(1 0) 
T$ = T$&Chr$(10) 
20 Case "Loan" 

If Format$(LoanDate, "Short Date") <> Format$(Pdate$, "Short Date") T 

hen 
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T$ = T$ & " All Information as of. " & Format$(LoanDate, "Short 
5 Date")&Chr$(10) 
End If 

T$ = T$ & " Loan Number: " & FNum(tblAccounts![Account N 

umber]) & " - " & tbIAccountslName & Chr$(10) 

T$ = T$ & " Current Balance: " & Fomiat$(tblBalancesl[Balanc 
10 e], "Currency") &Chr$(10) 

If tblBalances![Last Deposit] > 0 Then T$ = T$ & " Past Due Amoun 
t: " & Format$(tblBalancesl[Last Deposit], "Currency") & Chr$(1 0) 

T$ = T$ & " Interest Rate: " & Format$(tblBalancesl[R 

ate] / 100, "###.00 %") & Chr$(10) 
15 T$ = T$&" Payment Amount: "& Format$(tblBalances [[Payment], 

"Currency") &Chr${10) 

T$ = T$ & " Last Payment Date: " & Format$(tblBalances![Date of 
Last Deposit], "Short Date") & Chr$(10) 

T$ = T$ & " Next Due Date: " & Format$(tblBalancesl[Next D 
20 ue Date], "Short Date") & Chr$(1 0) 

T$ = T$ & " Maturity Date: " & Fomiat${tblBalances![Matu 

rity Date], "Short Date") & Chr$(10) 

T$ = T$ & " Payoff (call to verify): " & Format$(tblBalances![Net Pa 
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yoff], "Currency") & Chr$(10) 

T$ = T$ & " Interest Year-to-date: " & Format$(tblBalances![YTD Int 
erest], "Currency") & Chr$(10) 

T$ = T$ & "Collateral Description: " & tblBalancesl[Misc] & Chr$(10) 
5 T$ = T$&Chr$(10) 

Case Else 
T$ = "" 
End Select 
End If 
10 'Add Trans 

If GTrans% = True Then 

tbITrans.Seek ">=", tblAccounts![Reference Number], 0 
If tbITrans.NoMatch Then GoTo NextAccount 
If tbITranslReference <> tblAccountsl[Reference Number] Then GoTo NextAccount 
15 T$ = T$ & "Transaction(s) for Account " & FNum(tblAccounts![Account Number]) 
& Chr$(10) 

T$ = T$&"Date Serial* Amount Transaction 
Source and Type" & Chr$(10) 

20 "&Chr$(10) 

While Not tblTrans.EOF 
If tbITranslReference = tblAccountsl[Reference Number] Then 
tbITranCodes.Seek "=", tbITranslTC 
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If tblTranCodes.NoMatch Then 
MsgBox "An unknown trancode has been found: " & tbITranslTC, vblnforma 
tion, "UNKNOWN TRANCODE": TCD$ = "Unknow" 
Else 

5 TCD$ = tblTranCodes(1 ) 

If tbITranslSource <> "MICR" Then TCD$ = tbITranslSource & " " & TCD 

$ 

End If 

T$ = T$ & Format$(tblTrans!Date, "mm/dd/yy") & " " & Format$(tblTrans 
10 ISerial, "000000 ") & Rlght$(Space$(17) & Format$(tblTrans!Amount, "Currency"), 17) 
& Space$(8) & TCD$ & Chr$(10) 
Else 

GoTo LastTran 'End of Trans 
End If 

15 tblTrans.MoveNext 
Wend 
End If 
LastTran: 

If T$ <> Then T$ = T$ & Chr$(10) 

20 

NextAccount2: 
frmGenerate- 10 
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'If fiaged, build CSV File for trans 

If GCSV = False Or (GCSV = True And tblAccountsl[Extract ASCII] = False) Then 
GoTo NextAccount 
5 tblTrans.Seek "=", tblAccounts![Account Number] 
If tbITrans.NoMatch Then GoTo NextAccount 
Dim FilNum3%, TranType$ 
FilNum3% = FreeFile 
Open App.Path & T & Format$(tblAccounts![Account Number], "00000000") & ".CS 
10 V" For Output As #FilNum3% 
While Not tbITrans.EOF 

If tbITranslReference = tbIAccounts '[Reference Number] Then 
tbITranCodes.Seek "=", tbITranslTC 
If tbITranCodes.NoMatch = False Then 
15 If tblTranCodesIAction = -1 Then 

Write #FilNum3%, tblAGCountsl[Account Number], Pdate$, "Debit", tbITr 
anslSerial, Fomnat${-tblTrans!Amount, "##########.##") 
Else 

Write #FilNum3%, tblAccountsl[Account Number], Pdate$, "Credit", tbIT 
20 ranslSerial, Format$(tblTrans!Amount, "##########.##") 
End If 
End If 
Else 
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Close FilNum3% 
GoTo NextAccount 
End If 

tbITrans.MoveNext 
5 Wend 

Close FilNum3% 
NextAccount: 

D$ = Dir$(App.Path & "\" & Format$(tblAccounts![Account Number], "00000000") & 

10 .CSV") 

If D$ <> "" And GCSV = True Then 
HasAttachment = True 

MAPIMessagesLAttachmentlndex = SCount% 
MAPIMessagesLAttachmentPathName = App.Path & "\" & D$ 
15 MAPIMessagesLAttachmentName = Pdate$ & " Transactions for Account " & 
FNum(tbl 

Accountsl[Account Number]) & ".CSV 
SCount% = SCount% + 1 
End If 

20 D$ = Dir$(App.Path & T & Format$(tblAccountsl[Account Number], "00000000") & 

It 

*.HTM") 

If D$ <> "" And GStatement% = True Then 
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HasAttachment = Tme 

MAPIMessageslAttachmentlndex = SCount% 
MAPIMessageslAttachmentPathName = App.Path & "\" & D$ 
MAPIMessagesLAttachmentName = Format$(Mid${D$, 9, 8), "mm-dd-yyyy") & " 
5 Statem 

ent for Account " & FNum(tblAccounts![Account NumberJ) & ".HTM" 
SCount% = SCount% + 1 
End If 

tblAccounts.Edit 
10 tblAccounts![Last Report] = Now 

tbIAccounts. Update 
NextAccountS: 

tbIAccounts.MoveNext 
Wend 'End of account loop 

15 

NextUser: 

If T$ <> "" Or HasAttachment = True Then 
Labell = "eMailing " & MAPIMessageslRecipDisplayName 
DoEvents 
20 lfT$<>""Then 

If GMessage <> "" Then T$ = GMessage & Chr$(1D) & T$ 
MAPIMessageslMsgNoteText = Left$(T$, Len(T$) - 1) 
Else 
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T$ = GMessage & Chr$(10) 
5 MAPlMessagesI .MsgNoteText = "Statement attached" 
End If 

MAPlMessagesI .Send 
ECount = ECount + 1 
DoEvents 
10 End If 
NextUser2: 
T$ = '"• 

HasAttachment = False 
tbIUsers.MoveNext 
15 Wend 'End of User Loop 



'End Of Processing 
Screen.MousePointer = 0 
On Error Resume Next 
20 MAPISessionlSignOff 



If ECount > 1 Then 
tbIHistory.AddNew 
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tblHistory![Generation Date] = Now 
tbIHistoryiStatements = ECount 
tbIHistory.Update 
tbIOptions.Edit 
5 tblOptions![Last Generated] = Now 
tblOptions.Update 
End If 

'Remove reported transactions 
10 tbIAccounts.MoveFirst 
While Not tbIAccounts.EOF 
If Format$(tblAccountsl[Last Report], "mm/dd/yyyy") = Format$(Now, "mm/dd/yyyy") 

T 

hen 

15 SQL = "Delete * from Transaction where Reference = "' & Trim(tblAccountsl[Referen 
ce Number]) & 
dbs.Execute SQL 
End If 

tblAccounts.MoveNext 
20 Wend 

ReportPath = HoldPath 
ReportDateAdd = 0 
Kill App.Path & T.HTM" 
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KillApp.Path&T.CSV" 
On Error GoTo 0 
cmdCancel_Click 
End Sub 

5 

frmGenerate - 1 
VERSION 5.00 

10 Object="{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTLOCX" 
Object = "{20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0"; "MSMAPI32.0CX" 
Begin VB.Form fmnGenerate 

BorderStyle = 3 'Fixed Dialog 

Caption = "Generate e-Mail" 
15 ClientHeight = 1650 

ClientLeft = 45 

ClientTop = 330 

ClientWidth = 4680 

Icon = (Icon) 
20 LinkTopic = "Form1" 

MaxButton = 0 'False 

Min Button = 0 'False 

ScaleHeight = 1650 
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ScaleWidth = 4680 

ShowlnTaskbar = 0 "False 

StartUpPosition = 1 'CenterOwner 

Begin MSComctlLib.ProgressBar ProgressBarl 



Height 


255 


Left 


300 


Tablndex 


= 3 


Top = 


780 


Visible = 


0 'False 


Width 


4035 


_ExtentX 


= 7117 


_E)ctentY 


= 450 


_Version 


= 393216 


Appearance 


= 1 



End 

Begin VB.CommandButton cmdCancel 
Cancel = -1 True 
Caption = "ScCancel" 
Height = 300 
Left = 1740 
Tablndex = 1 
Top = 1200 

Width = 1095 
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End 

Begin MSMAPl.MAPIMessages MAPIMessagesI 

Left = 3840 

Top = 960 

5 _ExtentX = 1005 

_ExtentY = 1005 

_Version = 393216 

AddressEditFieldCount= 1 

AddressModifiable= 0 'False 
10 AddressResolveUI= 0 'False 

FetchSorted = 0 'False 

FetchUnreadOnly = 0 'False 
End 

Begin MSMAPl.MAPISession MAPlSessionl 
15 Left = 3960 

Top = 60 

_ExtentX = 1005 

_ExtentY = 1005 

_Verslon = 393216 
20 DownloadMail = 0 'False 

LogonUI = -1 'True 

NewSession = -1 'True 

Password = "ebalance" 
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UserName = "ebalance" 
End 

Begin VB.Label Label2 



5 frmGenerate - 2 



10 



20 



Alignment 


= 2 


AutoSize 


= -1 


Height 


= 195 


Left 


= 2280 


Tablndex 


= 2 


Top 


= 60 


Widtli 


= 75 



End 

15 Begin VB.Label Labell 



Alignment 


= 2 


AutoSize 


= -1 


Height 


= 195 


Left 


= 2280 


Tablndex 


= 0 


Top 


= 420 


Width 


= 75 



End 



End 



frmLogin - 1 

5 

Option Explicit 

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" 
(ByVal I 

10 pbuffer As String, nSIze As Long) As Long 

Public OK As Boolean 
Private Sub Form_Load{) 
Dim sBuffer As String 
15 Dim ISize As Long 

Me.Caption = SystemName & " Login" 
sBuffer = Space$(255) 
ISize = Len (sBuffer) 
Call GetUserName(sBuffer, ISize) 
20 If ISize > 0 Then 

txtUserName.Text = Left$(sBuffer, ISize) 
Else 

txtUserName.Text = vbNullString 
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End If 
End Sub 

5 Private Sub cmdCancel_Click() 
OK = False 
Me.Hide 
End Sub 

10 Private Sub cmdOK_Click() 

ToDo: create test for correct password 

'check for correct password 

If txtPassword.Text = "" Then 
OK = True 
15 Me.Hide 

Else 

MsgBox "Invalid Password, try again!", , "Login" 
txtPassword .SetFocus 
brtPassword.SelStart = 0 
20 txtPassword. SelLength = Len(txtPassword.Text) 
End If 
End Sub 
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VERSION 5.00 
5 Begin VB.Form frmLogin 

BorderStyle = 3 'Fixed Dialog 

Caption = "Login" 

ClientHeight = 1590 

ClientLeft = 45 
10 ClientTop = 330 

ClientWidth = 3750 

Icon = (Icon) 

LinkTopic = "Form1" 

MaxButton = 0 'False 
15 MinButton = 0 'False 

ScaleHeight = 1590 

ScaleWidth = 3750 

ShowlnTaskbar = 0 'False 

StartUpPosition = 2 'CenterScreen 
20 Tag = "Login" 

Begin VB.CommandButton cmdCancel 
Cancel = -1 'True 
Caption = "Cancel" 
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Height 


= 360 


Left 


= 2100 


Tablndex 


= 5 


Tag 


= "Cancel 


Top 


= 1020 


Width 


= 1140 



End 

Begin VB.CommandButton cmdOK 

Caption = "OK" 

Default = -1 'True 

Height = 360 

Left = 495 

Tablndex = 4 

Tag = "OK" 

Top = 1020 

Width = 1140 
End 

Begin VB.TextBox txtPassword 
Height = 285 
IMEMode = 3 'DISABLE 
Left = 1305 
PasswordChar = "*" 
Tablndex = 1 



10 



15 



Top = 525 

Width = 2325 
End 

Begin VB.TextBox txtUserName 
Height = 285 
Left = 1305 



Tablndex 



= 3 



Top = 135 

Width = 2325 
End 

Begin VB.Label IblLabels 
Caption = "&Password:" 
Height = 248 
Index = 1 

Left = 105 



Tablndex 
Tag 
Top 
Width 



= 0 
= "&Password:" 
= 540 
= 1080 



20 End 

Begin VB.Label IblLabels 
frmLogin - 2 
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Caption 



= "&UserName: 



Height 



= 248 



Index 



= 0 



5 



Left 



= 105 



Tablndex 



= 2 



Tag 



= "&UserName: 



Top 



= 150 



Widtti = 1080 
10 End 
End 

frmiVlaIn - 1 
15 Option Explicit 

Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, 
ByVal 

HelpFile$, ByVal wCommand%, dwData As Any) 
20 Sub OpenPilesQ 

FilePath = GetSetting(App.Title. "Settings", "FilePath", App.Path) 
Set wrkJet = CreateWorl<space("", "admin", "", dbUseJet) 
' Open Database object from saved Microsoft Jet database 
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Set dbs = wrkJet.OpenDatabase(FilePath & "\eStatement.mclb", False) 

Set tbIUsers = dbs.OpenRecordsetC'Users") 

Set tbIAccounts = dbs.OpenRecordset("Accounts") 
5 Set tbIBalances = dbs.OpenRecordset("Balances") 

Set tbITrans = dbs. Open Recordset("Transaction") 

SettblNSF = dbs.OpenRecordsetC'NSF") 

Set tbITranCodes = dbs.OpenRecordset("Tran Codes") 

Set tbIHistory = dbs.OpenRecordset("History") 
10 Set tbIOptions = dbs.OpenRecordset("Options") 

tbIOptions. Index = "Primary" 

tbIOptions. MoveFirst 

tbIHistory.lndex = "Primary" 

tbITranCodes. Index = "Primary" 
15 End Sub 

Sub CloseFilesQ 

On Error Resume Next 

tbIUsers.Close 

tbIAccounts.Close 
20 tbIBaiances.Close 

tbITrans.Close 

tbINSF.CIose 

tbITranCodes.Close 
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dbs. Close 

On Error GoTo 0 

End Sub 

Private Sub Form_Load() 

BackPath: 'Get the path to the reports 
ReportPath = GetSetting(App.Title, "Settings", "ReportPath", "") 
LoanPath = GetSetting(App,Title, "Settings", "LoanPath", "") 

'Check the Paths 

If ReportPath = "" Then 

If MsgBoxC'Please select the path to the report files.", vbOKCancel, "SETUP") = 
vbCancel Then mnuExit_Click 

mnuChangeReportPath_CliGk 

GoTo BackPath 
End If 

If LoanPath = "" Then 

If MsgBoxC'Please select the path to the loan data files.", vbOKCancel, "SETUP") 
= vbCancel Then mnuExit_Click 
mnuChangeLoanPath_Click 
GoTo BackPath 
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End If 



'Open the Data File 
OpenFiles 
5 'Center the Autoemail form 

fraAuto.Left = (Me.Width - fraAuto.Width) / 2 
fraAuto.Top = (Me. Height - fraAuto. Height) / 3 
'Check to see if AutoEMail was on at the last shutdown 
If lnStr(UCase$(Command), "AUTO") > 0 Or GetSetting(App.Title, "Settings", 
10 "AutoEma 

il", "OFF") = "ON" Then 

frmlVlain - 2 

15 

'Start if it was on 
mnuEnableAutoeMail_Clicl< 
End If 

20 'Get System Settings from Registery 



Me.Caption = SystemName & " - " & BanlcName & " - Ver. " & App.Major & "." & 
App.Min 
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or & App. Revision 
Me.Sliow 
DoEvents 

If Banl<Name = "Demo Banl^" Tlien mnuNameChange_Click 
5 If GetSetting(App.Title, "Settings", "Users", "") = "Disabled" Then 

UsersDisabled = True 

mnuEnable__CliGk 
End If 

10 End Sub 

Private Sub Form_Resize() 
fraAuto.Left = (Me.Width - fraAuto.Width) / 2 
fraAuto.Top = (Me.Height - fraAuto. Height) / 3 
15 Line1.X1 =0 

Une1.X2 = Me.Width 
End Sub 

Private Sub Form_Unload{Cancel As Integer) 
20 Dim i As Integer 
CloseFiles 
'close all sub forms 
For i = Forms.Count - 1 To 1 Step -1 
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Unload Forms(i) 
Next 



End Sub 

5 

Private Sub mnuBroadcast_Click() 
frmBroadcast.Show vbModal, Me 
End Sub 

10 Private Sub mnuChangeLoanPath_Clicl<{) 
digCommonDialog.ShowOpen 
If dIgCommonDialog.FileName <> "" Then 
Dim L% 

L% = lnStrRev(dlgCommonDlalog.FileName, "\") 

15 If L% > 0 Then 

LoanPath = Left(dlgCommonDialog.FileName, L%) 

Else 

LoanPath = dIgCommonDialog.FileName 
End If 

20 If ReportPath <> "" Then SaveSetting App.Title, "Settings", "LoanPath", LoanPath 
End If 
End Sub 
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Private Sub mnuChangeReportPath_Click() 
dlgCommonDialog.ShowOpen 
If dlgCommonDialog.FileName <> "" Then 
Dim L% 

5 L% = lnStrRev(dlgCommonDiaiog.FileName, T) 
If L% > 0 Then 
ReportPath = Lefl;(dlgCommonDialog.FileName, L%) 

frmMain - 3 

10 

Else 

ReportPath = dlgCommonDialog.FileName 
End If 

15 If ReportPath <> "" Then SaveSetting App.Title, "Settings", "ReportPath", Report 
Path 

End If 
End Sub 

20 Private Sub mnuDataUsers_ClickO 
Dim f As New frmUsersGrid 
f.Show vbModal, Me 
End Sub 
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Private Sub mnuDisable_Click() 

If UsersDisabled = True Then Exit Sub 

Dim SQL$ 

SQL$ = "Update Users Set [Previous State] = Suspend" 
5 dbs.Execute SQL 

SQL$ = "Update Users Set Suspend = True" 
dbs.Execute SQL 

MsgBox "All users disabled!", vblnformation 
tbIUsers. Index = "PrimaryKey" 
10 tblUsers.Seek"=", 10 
tbIUsers.Edit 

tblUsersiSuspend = False 
tbIUsers. Update 
UsersDisabled = True 
IS IblUsersDisabled.Visible = True 

SaveSetting App.Title, "Settings", "Users", "Disabled" 
End Sub 

Private Sub mnuDisableAutoeMail_Clicl<() 
20 If MsgBox("WARNING! Your are about to disable auto email." & vbCrLf & "Daily 
statemen 

ts will not be automatically generated." & vbCrLf & vbCrLf & "Is this what you want 
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to do?", vbExclamation + vbDefaultButton2 + vbYesNo, "WARNING!") <> vbYes Then 

Exit S 

ub 

fraAuto. Visible = False 
5 Timerl Enabled = False 

mnuEnableAutoeMail.Visible = True 
mnuDisableAutoeMail.Visible = False 
AutoFlag = False 

SaveSetting App.Title, "Settings", "AutoEmail", "OFF" 
10 DoEvents 
End Sub 

Private Sub mnuEditAutoEmail_Click() 
Dim f As New frmAutotime 
15 f.Show vbModal, Me 
End Sub 

Private Sub mnuEnable_Clid<() 
If UsersDIsabled = False Then Exit Sub 
20 Dim SQL$ 

SQL$ = "Update Users Set Suspend = [Previous State]" 
dbs. Execute SQL 
UsersDIsabled = False 
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IblUsersDisabled .Visible - False 

SaveSetting App.Title, "Settings", "Users", "Enabled" 

End Sub 

5 Private Sub mnuEnableAutoeMail_Click() 
Dim StartTime As Date 

If UsersDisabled = True Then mnuEnable_Click 
SaveSetting App.Title, "Settings", "AutoEmail", "ON" 

10 fmiMain - 4 

StartTime = GetSetting(App.Title, "Settings", "AutoTime", "08:00 AM") 
LastComplete = GetSetting(App.Title, "Settings", "LastAuto", "08:00 AM") 

15 

If DateValue(LastComplete) = DateValue(Now()) Then 

NextTry = Format$(DateAdd("w", 1, LastComplete), "mm/dd/yyyy ") & StartTime 
Else 

NextTry = Format$(DateAdd("w", 1, LastComplete), "mm/dd/yyyy ") & StartTime 
20 End If 

'Add a day if it is Sunday 

If Weekday(NextTry) = 7 Then NextTry = DateAdd('W, 1, NextTry) 
'Add another day if it Monday 
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If Weekday(NextTry) = 1 Then NextTry = DateAdcl("w", 1, NextTry) 



Autol = GetSetting(App.Title. "Settings", "AutoBetween", "15") 

IblLastComplete = LastComplete 
5 IblLastTry = "Waiting" 

IblNext = NextTry 

IblMissing = 0 

fraAuto.Visible = True 

mnuEnableAutoelVlail.Visible = False 
10 mnuDisableAutoeMail.Visible = True 

IblTime = Format$(Now, "tih:mm:ss AMPM") 

Timerl .Enabled = True 

AutoFlag = True 

DoEvents 
15 End Sub 

Private Sub mnuExit_Click() 
Unload Me 
End 
20 End Sub 

Private Sub mnuGenerateCurrent_Click() 
ReportSet = "Current" 
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If GetSetting(App.Title. "Settings", "FilesVerified", "") <> Now Then 
mnuVerify_Click 

If Format$(GetSetting(App.Title, "Settings", "FilesVerified", ""), "mm/dd/yyyy") <> 
Format$(Now, "mm/dd/yyyy") Then 
5 If MsgBox("There are missing files needed to generate eMail. Do you wish to con 
tinue?", vbQuestion + vbYesNo, "INCOMPLETE INFORMATION") <> vbYes Then Exit 
Sub 

End If 
End If 

10 On En^or Resume Next 

GMessage = "": GBalance = True: GTrans% = True: GStatement% = True: GLoans% 
= True: 

GCSV% = Tnje: GQwick% = True 
frmGenerate.Show vbModal, Me 
15 SaveSetting App.Title, "Settings", "LastAuto", Now 
On Error GoTo 0 
End Sub 

Private Sub mnuGeneratePrior_Clicl<() 
20 ReportSet = "Prior'' 
On Error Resume Next 

GMessage = "": GBalance = True: GTrans% = True: GStatement% = True: GLoans% 
= True: 
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GCSV% = True: GQwick% = True 

frmGenerate.Show vbModal, Me 
On Error GoTo 0 
End Sub 

5 

Private Sub mnuHelpAbout_Click() 
frmAboutShow vbModal, Me 
End Sub 

10 Private Sub mnuHelpSearchForHelpOn_Click() 
frmMain - 5 

Dim nRet As Integer 

15 

'if there is no helpfile for this project display a message to the user 
'you can set the HelpFile for your application in the 
'Project Properties dialog 
If Len(App.HelpFile) = 0 Then 
20 MsgBox "Unable to display Help Contents. There is no Help associated with this pr 
oject", vblnformation, Me.Caption 
Else 

On Error Resume Next 
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nRet = OSWinHelp(Me.hwncl, App.HeipFile, 261, 0) 
If Err Then 

Msg Box Err. Description 
End If 
5 End If 

End Sub 

10 Private Sub mnuHelpContents_Click() 
Dim nRet As Integer 

'if there is no helpfile for this project display a message to the user 
'you can set the HelpFile for your application in the 
15 'Project Properties dialog 

If Len(App.HelpFile) = 0 Then 

MsgBox "Unable to display Help Contents. There is no Help associated with this pr 
eject.", vblnformation, Me.Caption 
Else 

20 On En'or Resume Next 

nRet = OSWInHelp(Me.hwnd, App.HeipFile, 3, 0) 
If Err Then 

MsgBox Err. Description 
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End If 
End If 
End Sub 

5 Private Sub mnuNameChange_Click() 
frmNameChange.Show vbModal, Me 

Me.Caption = SystemName & " - " & BankName & " - Ver: " & App.Major & "." & 
App. Minor 
&App. Revision 
10 End Sub 

Private Sub mnuSeleoted_Click() 
frmSelected.Show vbModal, Me 
End Sub 

15 

Private Sub mnuTranCodes_Click() 
frmTranCodes.Show vbModal, Me 
End Sub 

20 Private Sub mnuVerify_Click() 
Dim FileName$ 
FilesMissing = 0 
FileName = "MNTB002.PRN" 
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If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1: If AutoFlag 
= False Then GoSub ShowMissing 
FileName = "MNTB003.PRN" 

If Dir$(ReportPath & FileNanne) = "" Then FilesMissing = FilesMissing + 1: If AutoFlag 
5 = False Then GoSub ShowMissing 
FileName = "MNTB004.PRN" 

If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1: If AutoFlag 
= False Then GoSub ShowMissing 
FileName = "MNTB005.PRN" 

10 

frmMain - 6 

If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1: If AutoFlag 
15 = False Then GoSub ShowMissing 
FileName = "TBAL005.PRN" 

If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1: If AutoFlag 
= False Then GoSub ShowMissing 
FileName = 'TBALOOy.PRN" 
20 If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 : If AutoFlag 
= False Then GoSub ShowMissing 
FileName = "TBAL008.PRN" 

If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1: If AutoFlag 
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= False Then GoSub ShowMissing 
FileName = "PJNL001PRN" 

If Dir$(ReportPath & FlleName) = "" Then FilesMissing = FilesMissing + 1: If AutoFlag 
= False Then GoSub ShowMissing 
5 FileName = "PJNL002PRN" 

If Dir$(ReportPath & FlleName) = "" Then FilesMissing = FilesMissing + 1: If AutoFlag 
= False Then GoSub ShowMissing 
FileName = "STMT090.PRN" 

If Dir$(ReportPath & FileName) = Then FilesMissing = FilesMissing + 1: If AutoFlag 
10 = False Then GoSub ShowMissing 
FileName = "CFLZ007.PRN" 

If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1: If AutoFlag 
= False Then GoSub ShowMissing 
FileName = "CF_026.PRN" 
15 If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 : If AutoFlag 
= False Then GoSub ShowMissing 
FileName = "CF_027.PRN" 

If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1: If AutoFlag 
= False Then GoSub ShowMissing 
20 If FilesMissing = 0 Then 

SaveSetting App.Title, "Settings", "FilesVerified", Now 

MsgBox "All files needed to generate email are present.", vblnformation, "VERIFIED 

II 
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Else 

If AutoFlag = False Then 
If FilesMissing = 1 Then 
MsgBox "One file needed to generate eStatements is missing!", vblnformation, 

5 "MISSING FILES" 
Else 

MsgBox FilesMissing & " files needed to generate eStatements are missing!", 
vblnformation, "MISSING FILES" 
End If 
10 End If 
End If 
Exit Sub 

•Show which file is missing if not Auto Generating 
15 ShowMissing: 

MsgBox FileName & " is missing.", vblnformation, "MISSING FILE" 

Return 
End Sub 

20 Private Sub Timer1_TimerO 

IblTime = Format$(Now, "hh:mm AMPM") 
If Not AutoFlag Then Exit Sub 
If Now < NextTry Then Exit Sub 
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'Give it a try 
'Clieck Files 
Dim X%. FileName$ 

5 FileslVlissing = 0 

FileName = "MNTB002.PRN" 

If Dir$(ReportPath & FileName) = "" Then FilesMlssing = FilesMissing + 1 
FileName = "MNTB003.PRN" 

10 frmMain - 7 



If Dir$(ReportPath & FileName) ' 
FileName = "MNTB004.PRN" 
If Dir$(ReportPath & FileName) 

15 FileName = "MNTB005.PRN" 
If Dir$(ReportPath & FileName) 
FileName = "TBAL005.PRN" 
If Dir$(ReportPath & FileName) 
FileName = 'TBAL007.PRN" 

20 If Dir$(ReportPath & FileName) 
FileName = "TBAL008.PRN" 
If Dir$(ReportPath & FileName) 
FileName = "PJNL001.PRN" 



Then FilesMissing = FilesMissing + 1 



= "" Then FilesMissing = FilesMissing + 1 



= "" Then FilesMissing = FilesMissing + 1 



= "" Then FilesMissing = FilesMissing + 1 



= "" Then FilesMissing = FilesMissing + 1 



= "" Then FilesMissing = FilesMissing + 1 
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If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 
FileName = TJNL002.PRN" 

If Dir$(ReportPath & FileName) = Then FilesMissing = FilesMissing + 1 
FileName = "STMT090.PRN" 
5 If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 
FileName = "CFLZ007.PRN" 

If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 
FileName = "CF_026.PRN" 

If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 
10 FileName = "CF_027.PRN" 

If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 

If FilesMissing = 0 Then 
SaveSetting App.Title, "Settings", "FilesVerified", Now 
15 DoEvents 
Else 

IblMissing = FilesMissing 

IblLastTry = Format$(Now, "mm/dd/yyyy hh:mm:ss AMPM") 
LastTry = IblLastTry 
20 NextTry = DateAdd("n", Autol, LastTry) 
IblNext = NextTry 
DoEvents 
Exit Sub 

-142- 



End If 

On Error Resume Next 

GMessage = "": GBalance = True: GTrans% = True: GStatement% = True: GLoans% 
= True: 

5 GCSV% = True: GQwick% = True 

frmGenerate.Show vbModal, Me 

SaveSetting App.Title, "Settings", "LastAuto", Now 

mnuExit_Click 

Exit Sub 
10 LastComplete = Now 

IblLastComplete = Format$(Now, "mm/dd/yyyy lih:mm:ss AMPM") 

Dim StartTime As Date 

StartTime = GetSetting(App.Titie, "Settings", "AutoTlme", "07:00 AM") 
NextTry = Format$(DateAdd("w". 1, LastComplete), "mm/dd/yyyy ") & StartTime 
15 FiiesMlssing = 0 
IblMlssing = 0 
IblNext = NextTry 
DoEvents 

20 End Sub 
fmnMain - 1 
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VERSION 5.00 

Object = "{F9043C88-F6F2-1 01 A-A3C9-08002B2F49FB}#1 .2#0"; "COMDLG32.0CX" 
Begin VB.Form frmMain 
Caption = "eStatement Main Menu" 
5 ClientHeiglit = 6640 
GlientLeft = 165 
ClientTop = 450 
ClientWidtii = 8415 
Icon = (Icon) 
10 LinkTopic = "Form1" 
ScaleHelght = 5640 
ScaleWidth = 8415 
StartUpPosition = 2 'CenterScreen 
Begin VB.TImer Timerl 
15 Interval = 65535 
Left = 840 
Top = 1140 

End 

Begin VB.Frame fraAuto 
20 Caption = "Auto eMail is Active" 
ForeColor = &H000000FF& 
Height = 2355 
Left = 2340 

-144- 



Tablndex = 1 
Top = 300 

Visible = 0 'False 
Width = 4035 
5 Begin VB.Label IblTime 

BackColor = &H8000000E& 

BorderStyle = 1 'Fixed Single 

Height = 255 

Left = 1560 
10 Tablndex = 11 

Top = 1860 

Width = 1215 
End 

Begin VB.Label LabelT 
15 Caption = "Current Time:" 

Height = 255 
Left = 300 
Tablndex = 10 
Top = 1860 

20 Width = 1275 

End 

Begin VB.Label IblMissing 
BackColor = &H8000000E& 
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BorderStyle = 1 'Fixed Single 
Height = 255 
Left = 1560 
Tablndex = 9 
5 Top = 1500 

Width =615 
End 

Begin VB. Label Label6 

Caption = "Missing Files:" 
10 Height = 255 

Left = 300 

Tablndex = 8 

Top = 1500 

Width = 1275 
15 End 

Begin VB.Label IblLastTry 

BackColor = &H8000000E& 

BorderStyle = 1 'Fixed Single 

20 frmMain - 2 



Height = 255 

-146- 



Left = 1560 
Tablndex = 7 
Top = 1140 

Width = 2295 
End 

Begin VB.Label Labels 

Caption = "Last Attempt:" 

Height = 255 

Left = 300 

Tablndex = 6 

Top = 1180 

Width = 1275 
End 

Begin VB.Label IblLastComplete 

BackColor = &H8000000E& 

BorderStyle = 1 'Fixed Single 

Height = 255 

Left = 1560 

Tablndex = 5 

Top = 420 

Width = 2295 
End 

Begin VB.Label IblNext 



BackColor = &H8000000E& 
BorderStyle = 1 'Fixed Single 
Height = 255 
Left = 1560 
Tablndex = 4 
Top = 780 

Width = 2295 
End 

Begin VB. Label Label3 

Caption = "Next Schedule:" 

Height = 255 

Left = 300 

Tablndex = 3 

Top = 780 

Width = 1275 
End 

Begin VB.Label Label2 
Caption = "Last Complete:" 
Height = 255 
Left = 300 
Tablndex = 2 
Top = 420 

Width = 1275 



End 
End 

Begin MSComDIg.CommonDialog dIgCommonDialog 

Left = 3180 

Top = 1350 

_ExtentX = 847 

_ExtentY = 847 

_Version = 393216 
End 

Begin VB.Label IblUsersDisabied 
Caption = "WARNING! USERS ARE DISABLED!" 
BeginProperty Font 

Name = "MS Sans Serif 

Size = 12 

Charset = 0 

Weight = 700 

Underline = 0 'False 
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frmMain - 3 



Italic = 0 'False 
5 Strikethrough = 0 'False 

EndProperty 

ForeColor = &HOOOOOOFF& 
Height = 255 
Left = 240 
10 Tablndex = 12 
Top = 60 

Visible = 0 'False 
Width = 4635 
End 

15 Begin VB.Line Line1 

X1 =0 

X2 = 11000 

Y1 =0 

Y2 =0 
20 End 

Begin VB. Label Label! 

Alignment = 2 'Center 

AutoSize = -1 'True 
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Height 



195 



Left 



4920 



Tablndex 



= 0 



Top 



1440 



5 Visible = 0 'False 
Width = 75 
End 

Begin VB.Menu mnuDataUsers 
Caption = "&Customers" 
10 End 

Begin VB.Menu mnuOptions 
Caption = "&Options" 
Begin VB.Menu mnuChangeReportPath 
Caption = "&Change Report Path" 

15 End 

Begin VB.Menu mnuChangeLoanPath 

Caption = "Change &Loan Data Path" 
End 

Begin VB.Menu mnuNameChange 
20 Caption = "Change &System Information" 

End 

Begin VB.Menu mnuEditAutoEmail 
Caption = "Edit Auto e-Mail &Settings" 
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End 

Begin VB.Menu mnuTranCodes 

Caption = "&Edit Tran Codes" 
End 

5 Begin VB.Menu mnuEnable_Disabie 
Caption = "SEnable/Disable" 
Begin VB.Menu mnuEnable 

Caption = "&EnabieAII" 
End 

10 Begin VB.Menu mnuDisable 

Caption = "&DisableAli" 
End 
End 

Begin VB.Menu mnuSelected 
15 Caption = "&Generate Selected e-Mail" 

End 
End 

Begin VB.Menu mnuVerify 
Caption = "&Verify Files" 
20 End 

Begin VB.Menu mnuEnableAutoeMail 
fmnMain - 4 
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Caption = "SEnable Auto e-Mail" 
End 

Begin VB.Menu mnuDisableAutoeMail 
5 Caption = "&Disable Auto e-Mail" 
Visible = 0 "False 
End 

Begin VB.Menu mnuGenerate 
Caption = "&Generate e-Mail" 
10 Begin VB.Menu mnuGenerateCurrent 
Caption = "Generate &Current" 
End 

Begin VB.Menu mnuGeneratePrior 
Caption = "General &Prior" 
15 End 
End 

Begin VB.Menu mnuBroadcast 
Caption = "&Broadcast" 
End 

20 Begin VB.Menu mnuHelp 
Caption = "&Help" 
Begin VB.Menu mnuHelpContents 
Caption = "&Contents" 



End 

Begin VB.Menu mnuHelpSearchForHelpOn 
Caption = "&Search For Help On..." 
End 

5 Begin VB.Menu mnuHelpBarO 
Caption = "-" 
End 

Begin VB.Menu mnuHeipAbout 
Caption - "&About" 
10 End 
End 

Begin VB.Menu mnuExit 
Caption = "&Exit" 
End 
15 End 
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frmNameChange - 1 



Option Explicit 

5 

Private Sub cmdClose_Click() 
Unload Me 

Set frmNameChange = Nothing 
End Sub 

10 

Private Sub cmdSave_Cllck() 
Dim X% 

X% = Val(txtStatementFont) 
lfX%>8 0rX%<2Then 
15 MsgBox "Valid font sizes are from 2 to 8 only!" & vbCrLf & vbCrLf & "Try Again!", 
vblnformation, "INVALID FONT SIZE" 

Exit Sub 
End If 

SaveSetting App.Title. "Settings", "SystemName", Trim$(b(tSystemName) 
20 SaveSetting App.Title, "Settings", "BankName", Trim$(txtBankName) 

SaveSetting App.Title, "Settings", "StatementFont", Trim$(txtStatementFont) 
SaveSetting App.Title, "Settings", "GIFName", Trim$(txtGifName) 
SystemName$ = Trim$(txtSystemName) 
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BankName$ = Trim$(txtBankName) 
StatementFont% = Trim$(txtStatementFont) 
GIFName$ = Trim$(txtGifName) 
cmdClose_Click 
5 End Sub 

Private Sub cmdBrowse_Click() 
Dim FileName$, L% 
FileName$ = GIFName 
10 L% = lnStrRev(FileName$, "\") 
If L% <> 0 Then 

CommonDiaiogl.lnitDIr = Left$(FileName$, L%) 
Else 

CommonDiaiogl.lnitDIr = App.Path 
15 End If 

CommonDialogl. Filter = "Pictures (*.gif;*.jpg)r.gif;*.jpg" 
CommonDialog1.Filterlndex= 1 
CommonDialogl. CancelError = True 
CommonDialogl Action = 1 
20 If Err > 0 Then On Error GoTo 0: Exit Sub 
On Error GoTo 0 

FileName$ = CommonDialogl. FileName 
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If UCase$(Right$(FileName$, 3)) <> "GIF" And UCase$(Right$(FileName$, 3)) <>"JPG" 

Th 

en 

MsgBox "Invalid file type. JPG or GIF only.", vblnformation, "FILE TYPE ERROR" 
5 Exit Sub 
End If 

txtGifName = CommonDialoglFileName 
End Sub 

10 

Private Sub Form_Load() 
Me.Caption = SystemName & " " & Me.Caption 

txtSystemName = GetSetting(App.Title, "Settings", "SystemName", "eStatement") 
bdBankName = GetSetting(App.Title, "Settings", "BankName", "Demo Bank") 
15 bdStatementFont = GetSetting(App.Title, "Settings", "StatementFont", "6") 
bctGifName = GetSetting(App.Title, "Settings", "GIFName", "") 
End Sub 
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frmNameChange - 1 



VERSION 5.00 

5 Object = "{F9043C88-F6F2-1 01 A-A3C9-08002B2F49FB}#1 .2#0"; "COMDLG32.0CX" 
Begin VB.Form frmNameChange 
Caption = "Change System Information" 
ClientHeight = 2535 
ClientLeft = 60 
10 ClientTop = 345 
ClientWidth = 5430 
LinkTopic = "Form1" 
ScaleHeight = 2535 
ScaleWidth = 5430 
15 StartUpPosition = 1 'CenterOwner 

Begin MSComDIg.CommonDialog CommonDialogI 
Left = 4260 
Top = 2100 

_ExtentX = 847 
20 _E)ctentY = 847 

_Version = 393216 
End 

Begin VB.CommandButton cmdBrowse 
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Caption = "&Browse" 
Height =315 
Left = 4560 
Tablndex = 11 
5 Tag = "OK" 

Top = 1500 

Width = 795 
End 

Begin VB.TextBox txtGifName 
10 Height =315 

Left = 1740 

Tablndex = 9 

Top = 1500 

Width = 2715 
15 End 

Begin VB.CommandButton cmdSave 

Caption = "&Save" 

Height = 375 

Left = 1418 
20 Tablndex = 7 

Tag = "OK" 

Top = 2025 

Width = 1095 
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End 

Begin VB.CommandButton cmdClose 



Cancel 


= -1 True 


Caption 


= "&Ciose" 


Height 


= 375 


Left 


= 2918 


Tablndex 


= 6 


Tag 


= "Cancel" 


Top 


= 2025 


Width 


= 1095 



End 

Begin VB.TextBox txtStatementFont 

Height =315 

Left = 1740 
15 MaxLength = 2 

Tablndex = 5 

Top = 1080 

Width = 435 
End 

20 Begin VB.TextBox brtBankName 
Height =315 
frmNameChange - 2 
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Left = 1740 
Tablndex = 3 
Top = 660 

Width = 2715 
5 End 

Begin VB.TextBox txtSystemName 



Height 


= 315 


Left 


= 1740 


Tablndex 


= 1 


Top 


= 240 


Width 


= 2715 



End 

Begin VB.Label Labell 
Caption = "Statement Graphic:" 
15 Height = 255 
Index = 4 
Left = 120 
Tablndex = 10 
Top = 1500 

20 Width = 1575 
End 

Begin VB.Label Labell 
Caption = "(2 to 8)" 
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Height = 255 
Index - 3 
Left = 2340 
Tablndex = 8 
Top = 1080 

Width = 1575 
End 

Begin VB.Label Labell 

Caption = "Statement Font Size: 

Height = 255 

Index = 2 

Left = 120 

Tablndex = 4 

Top = 1080 

Width = 1575 
End 

Begin VB.Label Labell 
Caption = "Bank Name:' 
Height = 255 
Index = 1 
Left = 120 
Tablndex = 2 
Top = 660 



..II 



Width 
End 

Begin VB. Label 
Caption 
5 Height = 
Index = 
Left 

Tablndex 
Top = 
10 Width 
End 
End 

frmSelected - 1 

15 

Option Explicit 

Private Sub cmdCanceLCIickQ 
Unload Me 
20 Set fmiSelected = Nothing 
End Sub 

Private Sub cmdContinue_Click() 
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1575 
Label 1 

= "System Name:" 
= 255 
: 0 

120 

= 0 
' 240 
= 1575 



Dim X%, T% 

If Check1(0) = 1 Then GBalance% = True Else GBalance% = False 

If Check1(1) = 1 Then GTrans% = True Else GTrans% = False 

If Check1(2) = 1 Then GLoans% = True Else GLoans% = False 
5 If Check1(3) = 1 Then GStatement% = True Else GStatement% = False 

If Check1(4) = 1 Then GCSV% = True Else GCSV% = False 

If Check1(5) = 1 Then GQwick% = True Else GQwlck% = False 

ForX% = 0To5 
T% = T% + Check1(X%) 
10 Next 

lfT%:=OThen 

MsgBox "You must select at least one option to generate.", vblnformation, "NOTHING 
TO DO" 

Exit Sub 
15 End If 

GMessage = Trim$(Text1) 
lfTrim$(Text1) = ""Then 

If MsgBox("No message has been entered, do you wish to continue?", vbQuestion + 
vb 

20 YesNo + vbDefaultButton2, "MESSAGE OPTION") <> vbYes Then Exit Sub 
End If 

On Error Resume Next 
Me.Hide 
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frmGenerate.Show 
On Error GoTo 0 
cmdCanceLCIick 
End Sub 

Private Sub Form_Load() 

Me.Caption = SystemName & " " & Me.Caption 

End Sub 

frmSelected - 1 



VERSION 5.00 

Begin VB.Form frmSelected 

BorderStyle = 3 'Fixed Dialog 
15 Caption = "Selective Send" 

ClientHeight = 4005 

ClientLeft = 45 

ClientTop = 330 

ClientWidth = 4680 
20 Icon = (Icon) 

LinkTopic = "Form1" 

MaxButton = 0 'False 

MinButton = 0 'False 
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ScaleHeight = 4005 
ScaleWidth = 4680 
ShowlnTaskbar = 0 'False 
StartUpPosition = 2 'CenterScreen 
5 Begin VB.TextBox Text1 

Height =915 

Left = 360 

l\/lultiLine = -1 True 

ScroilBars = 2 Vertical 
10 Tablndex = 8 

Top = 2580 

Width = 4035 
End 

Begin VB.CommandButton cmdContinue 



Cancel 


= -1 True 


Caption 


= "&Continue 


Height 


= 300 


Left 


= 840 


Tablndex 


= 7 


Top 


= 3600 


Width 


= 1095 



End 

Begin VB.CommandButton cmdCancel 
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Caption = "C&ancel" 
Height = 300 
Left = 2580 
Tablndex = 6 
5 Top = 3600 

Width = 1095 
End 

Begin VB.Checl<Box Checkl 
Caption = "Generate Qwiolcen Attachments" 
10 Height = 255 
Index = 5 
Left = 960 
Tablndex = 5 
Top = 1980 

15 Width = 2895 
End 

Begin VB.CheckBox Checkl 
Caption = "Generate CSV Attachments" 
Height = 255 
20 Index = 4 
Left = 960 
Tablndex = 4 
Top = 1620 
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Width = 2895 
End 

Begin VB.CheckBox Clieckl 
Caption = "Generate Statement Attachments" 
5 Height = 255 
Index = 3 
frmSelected - 2 



10 Left = 960 
Tablndex = 3 

Top = 1260 

Width = 2895 
End 

15 Begin VB.CheckBox Checkl 

Caption = "Generate Loan Information" 

Height = 255 

Index = 2 

Left = 960 
20 Tablndex = 2 

Top = 900 

Width = 2895 
End 
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Begin VB.CheckBox Checkl 
Caption = "Generate Transactions" 
Height = 255 
Index = 1 
5 Left = 960 
Tablndex = 1 
Top = 540 

Width = 2895 
End 

10 Begin VB.Checl^Box Checkl 

Caption = "Generate Balance Information" 

Height = 255 

Index = 0 

Left = 960 
15 Tablndex = 0 

Top = 180 

Width = 2895 
End 

Begin VB.Label Labell 
20 Caption = "Message:" 
Height = 255 
Left = 60 
Tablndex = 9 
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Top = 2280 

Width = 1155 
End 
End 

5 frmSplash - 1 



Option Explicit 



10 Private Sub Form_Load() 

IblVersion.Caption = 'Version " & App.l\/lajor & "." & App.i\/linor & "." & App.Revision 

IblProductName.Caption = App.Titie 

IblCompanyProduct = App.CompanyName 
' IblCopyright = App.LegalCopyrigiit 
15 ' IblCompany = App.CompanyName 



End Sub 
frmSplasli - 1 

20 

VERSION 5.00 

Begin VB.Form frmSplash 
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BorderStyle = 3 'Fixed Dialog 
ClientHeight = 4710 
ClientLeft = 45 
ClientTop = 45 
5 ClientWidth = 7455 
ControlBox = 0 'False 
LinkTopic = "Form1" 
MaxButton = 0 'False 
MinButton = 0 'False 
10 ScaleHeight = 4710 
ScaieWidth = 7455 
ShowlnTaskbar = 0 'False 
StartUpPosition = 2 'CenterScreen 
Visible = 0 "False 
15 Begin VB.Frame fraMainFrame 
Height = 4590 
Left = 60 
Tablndex = 0 
Top = -15 
20 Width = 7380 

Begin VB.PictureBox piclcon 
AutoSize = -1 True 
BackColor = &H00C0C0C0& 
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ClipControls = 0 'False 

Height = 1260 

Left = 420 

Picture = (Bitmap) 
5 ScaleHeiglit = 1200 

ScaleMode = 0 'User 

ScaleWidtli = 1200 

Tablndex = 7 

TabStop = 0 'False 
10 Top = 600 

Width = 1260 
End 

Begin VB.Label IblLicenseTo 

Alignment = 1 'Right Justify 
15 Caption = "LicenseTo: Lamar Bank - Beaumont Texas " 

Height = 255 

Left = 270 

Tablndex = 1 

Tag = "LicenseTo" 

20 Top = 300 

Width = 6855 
End 

Begin VB.Label IblProductName 
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AutoSize = -1 True 
Caption = "Product" 
BeginProperty Font 

Name = "Lucida Calligraphy" 

Size = 24 

Charset = 0 

Weight = 700 

Underline = 0 "False 

Italic = 0 'False 

Strikethrough = 0 'False 



End Property 




Height 


= 615 


Left 


2670 


Tablndex 


= 6 


Tag = 


"Product" 


Top = 


1200 



frmSplash - 2 



Width = 3120 
End 

Begin VB.Label IblCompany Product 
AutoSize = -1 True 



Caption = "CompanyProduct" 
BeginProperty Font 
Name = "MS Sans Serif ' 
Size = 13.5 
5 Charset = 0 

Weight = 700 
Underline = 0 'False 
Italic = 0 'False 
Strikethrough = 0 'False 
10 EndProperty 

Height = 360 
Left = 2505 

Tablndex = 5 
Tag = "CompanyProduct" 
15 Top = 765 

Width = 2415 
End 

Begin VB. Label IblPlatform 
Alignment = 1 'Right Justify 
20 AutoSize = -1 'True 

Caption = "Platform Windows 95+" 
BeginProperty Font 
Name = "MS Sans Serif 
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Size = 13.5 
Charset = 0 
Weight = 700 
Underline = 0 'False 
5 Italic = 0 'False 

Strikethrough = 0 'False 
End Property 
Height = 360 
Left = 3900 
10 Tablndex = 4 

Tag = "Platform" 

Top = 2400 

Width = 3105 
End 

15 Begin VB.Label IblVersion 

Alignment = 1 'Right Justify 
AutoSize = -1 'True 
Caption = "Version" 
BeginProperty Font 
20 Name = "MS Sans Serif 

Size = 12 
Charset = 0 
Weight = 700 



Underline = 0 'False 

Italic = 0 'False 

Strikethrough = 0 'False 
End Property 
Height = 300 
Left = 6075 
Tablndex = 3 
Tag = 'Version" 

Top = 2760 

Width = 930 
End 

Begin VB.Label IblWarning 
Caption = "Warning: Copyright 1999-2000, Resource Development Sys 
BeginProperty Font 



frmSplash - 3 



Name 



= "MS Sans Serif- 



Size 



9.75 



Charset 



= 0 



Weight 



= 700 



Underline 



= 0 'False 
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Italic 



= 0 'False 



Strikethrough = 0 'False 



EndProperty 



Height 



615 



5 



Left 



300 



Tablndex 



= 2 



Tag 



"Warning' 



Top 



3720 



Width = 6855 
10 End 
End 
End 

frmTranCodes - 1 

15 

Option Explicit 
Private Sub cmdAdd_Click() 
datPrimaryRS.Recordset.AddNew 
20 End Sub 



Private Sub cmdDelete_Click() 
With datPrimaryRS.Recordset 
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.Delete 
.MoveNext 

If .EOF Then .MoveLast 
End With 
5 End Sub 

Private Sub cmdRefresh_Click() 
This is only needed for multi user apps 
datPrimaryRS. Refresh 
10 End Sub 

Private Sub cmdUpdate_Click() 
datPrimaryRS.UpdateRecord 

datPrimaryRS.Recordset.Bookmark = datPrimaryRS.Recordset.LastModified 
15 End Sub 

Private Sub cmdClose_Click() 
Screen.MousePointer = vbDefault 
Unload Me 
20 End Sub 



Private Sub datPrimaryRS_Error(DataErr As Integer, Response As Integer) 
'This is where you would put error handling code 
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1f you want to ignore errors, comment out the next line 
If you want to trap them, add code here to handle them 
MsgBox "Data error event hit err:" & Error$(DataErr) 
Response = 0 Throw away the error 
5 End Sub 

Private Sub datPrimaryRS_Reposition() 

Screen.MousePointer = vbDefauit 

On Error Resume Next 
10 This will display the current record position for dynasets and snapshots 

datPrimaryRS.Caption = "Trancode: " & (datPrimaryRS.Recordset.AbsolutePosltion 
+ 1) 

End Sub 

15 Private Sub datPrimaryRS_Validate(Action As Integer, Save As Integer) 
This is where you put validation code 
This event gets called when the following actions occur 
Select Case Action 
Case vbDataActionMoveFirst 
20 Case vbDataActionMovePrevious 
Case vbDataActionMoveNext 
Case vbDataActionMoveLast 
Case vbDataActionAddNew 
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Case vbDataActionUpdate 
Case vbDataActionDelete 
Case vbDataActionFind 
Case vbDataActionBookmark 
5 Case vbDataActionClose 

Screen.MousePointer = vbDefauIt 
End Select 

Screen.MousePointer = vbHourglass 
End Sub 

10 

Private Sub Form_Load() 

Me.Caption = SystemName & " " & Me.Captlon 

frmTranCodes - 2 

15 

datPrimaryRS.DatabaseName = App.Patfi & "\estatement.mdb" 
End Sub 

Private Sub Form_Unload(Cancel As Integer) 
20 Screen.MousePointer = vbDefault 
End Sub 



-180- 



frmTranCodes - 1 

VERSION 5.00 

5 Begin VB.Form frmTranCodes 

BorderStyle = 3 'Fixed Dialog 
Caption = "Iran Codes" 
ClientHeight = 1695 
ClientLeft = 1095 

10 ClientTop = 330 
ClientWidth = 5550 
Icon = (Icon) 
LinkTopic = "Fomi2" 
MaxButton = 0 'False 

15 MinButton = 0 'False 
ScaleHeight = 1695 
ScaleWidth = 5550 
ShowlnTaskbar = 0 'False 
StartUpPosition = 2 'CenterScreen 

20 Begin VB.PictureBox picButtons 
Align = 2 'Align Bottom 
Appearance = 0 'Flat 
BorderStyle = 0 'None 



ForeColor = &H80000008& 
Height = 300 
Left = 0 
ScaleHeight = 300 
5 ScaleWidth = 5550 
Tablndex = 6 
Top = 1050 

Width = 5550 
Begin VB.CommandButton cmdClose 
10 Caption = "&Close" 

Height = 300 

Left = 4505 

Tablndex = 11 

Top = 0 

15 Width = 975 

End 

Begin VB.CommandButton cmdUpdate 
Caption = "&Update" 
Height = 300 
20 Left = 3409 

Tablndex = 10 
Top = 0 

Width = 975 
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End 

Begin VB.Command Button cmdRefresh 
Caption = "&Refresh" 
Height = 300 
5 Left = 2313 

Tablndex = 9 
Top = 0 

Width = 975 
End 

10 Begin VB.CommandButton cmdDelete 

Caption = "&Delete" 

Height = 300 

Left = 1217 

Tablndex = 8 
15 Top = 0 

Width = 975 
End 

Begin VB.CommandButton cmdAdd 
Caption = "&Add" 
20 Height = 300 

Left = 121 



fnnTranCodes - 2 
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Tablndex 



= 7 



Top 



0 



Width 



975 



5 



End 



End 



Begin VB.Data datPrinriaryRS 



Align 



= 2 'Align Bottom 



Caption = "" 
10 Connect = "Access" 

DatabaseName = "C:\ebalance\ebalance.mdb" 

DefaultCursorType= 0 "DefaultCursor 

DefaultType = 2 'UseODBC 

Exclusive = 0 'False 
15 Height = 345 

Left = 0 

Options = 0 

Readonly = 0 'False 

RecordsetType = 1 'Dynaset 
20 RecordSource = "select * from [Iran Codes]" 

Top = 1350 

Width = 5550 



End 
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Begin VB.CheckBox chkFields 



DataField 


= "Action" 


DataSource 


= "datPrimaryRS 


Height 


285 


Index = 


2 


Left 


2040 


Tablndex 


= 5 


Top = 


700 


Width 


3375 



10 End 

Begin VB.TextBox txtFields 

DataField = "Description" 

DataSource = "datPrinfiaryRS" 

Height = 285 
15 index = 1 

Left = 2040 

MaxLength = 30 

Tablndex = 3 

Top = 380 

20 Width = 3375 
End 

Begin VB.TextBox txtFields 
DataField = "TC" 
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DataSource = "datPrimaryRS" 





Height 


= 285 




Index 


= 0 




Left 


= 2040 


5 


Tablndex 


= 1 




Top 


= 60 




Width 


= 735 




End 






Begin VB.Label IblLabels 


10 


Caption 


- "Debit: 




Height 


= 255 




Index 


= 2 




Left 


= 120 




Tablndex 


= 4 


15 


Top 


= 700 




Width 


= 1815 



End 

Begin VB.Label IblLabels 
Caption = "Description:" 
20 frmTranCodes - 3 



Height = 255 
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Index = 1 
Left = 120 
Tablndex = 2 
Top = 380 

5 Width = 1815 
End 

Begin VB.Label IblLabels 

Caption = "Transaction Code:" 

Height = 255 
10 Index = 0 

Left = 120 

Tablndex = 0 

Top = 60 

Width = 1815 
15 End 
End 

frmUsers - 1 



20 Option Explicit 

Function MakeAlpha(AcctName As String) 

Dim L%, X% 
'Remove all commas 
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Do 

L% = lnStr(AcctName. ",") 
If L% <> 0 Then Mid$(AcctName, L%) = " " 
Loop Until L% = 0 

5 

'Remove NickNames "(JIM)" 



L% = lnStr(AcotName, "(") 
If L% <> 0 Then 
10 X% = lnStr(AcctName, ")") 
On Error Resume Next 
If X% <> 0 Then AcctName = Trlm$(Left$(AcctName, L% - 1)) & " " & 

Trim$(Micl$(AcctN 
ame, X% + 1)) 
15 On Error GoTo 0 
End If 



'Remove Brackets 
L% = lnStr(AcctName, "[") 
20 If L% <> 0 Then 

X% = lnStr(AcctName, "]") 
On Error Resume Next 
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If X% <> 0 Then AcctName = Trim$(Trim$(Left$(AcctName, L% - 1)) & " " & 
Trim$(Mid$ 
(AcctName, X% + 1))) 
On Error GoTo 0 
5 End If 

'Remove THE' 

If Left$(AcctName, 4) = 'THE " Then AcctName = Mid$(AcctName, 5) 
10 GoSub RemoveDouble 
BackName: 

'Find and Remove Suffixs 
X% = Len(AcctName) 
15 Do 

If Mid$(AcctName, X%, 1) = " " Then Exit Do 
X% = X% - 1 
Loop Until X% = 0 

Select Case Mid$(AcctName, X% + 1) 
20 Case "SR". "JR". "AND", "III", "OR", "MD", "DDS", "DVM", "DBA", "CPA", "11", "IV" 
AcctName = Left$(AcctName, X% - 1) 
GoTo BackName 
Case "SR.", "JR.", "M.D.", "D.D.S.", "D.V.M.", "D.B.A.", "C.P.A." 
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AcctName = Left$(AcctName, X% - 1) 
GoTo BackName 

Case "COMPANY", "CO", "INC", "CLUB", "INC.", "CO.", "ASSOC.", "ASSOC", 
"ASSOCIATES" 
5 GoSub StripPerolds 

MakeAlpha = Left$(Trim$(AcctName), 12): Exit Function 

Case Else 

GoSub StripPerolds 
X% = Len(AcctName) 

10 Do 

If Mid$(AcctName, X%, 1) = " " Then Exit Do 
X% = X% - 1 
Loop Until X% = 0 

MakeAlpha = Mid$(AcctName, X% + 1) & ", " + Left$(AcctName, X% - 1) 
15 End Select 
Exit Function 

StripPerolds: 

20 frm Users - 2 



Do 
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L% = lnStr(AcctName, ".") 

If L% <> 0 Then Mid$(AcctName, L%) = " ": AcctName = Trim$(AcctName) 
Loop Until L% = 0 
RemoveDouble: 
5 'Remove Double Spaces 
Do 

L% = lnStr(AGGtName, " ") 

If L% <> 0 Then AcctName = Left$(AcctName, L%) & Trim$(Mid$(AcGtName, L%)) 
Loop While L% <> 0 
10 Return 

End Function 

Private Sub cmdAccounts_Clicl<() 
CurrentID = b(tFields(0) 
15 frmAccounts.Show vbModal, Me 
End Sub 

Private Sub cmdAdd_Click() 
datPrimaryRS.Recordset.AddNew 
20 txtFields(O) = datPrimaryRS.Recordsetl[ID] 
txtFields(3) = Fomiat$(Now, "mm/dd/yyyy") 
txtFields(1).SetFocus 
End Sub 
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Private Sub cmdDelete_Click() 



If MsgBoxfDelete this user?", vbYesNo + vbQuestion, "DELETE USER") <> vbYes 
ThenE 
5 xit Sub 
Dim SQL$ 

SQL$ = "Delete from Accounts where [User ID] =" & txtFields(O) 
dbs. Execute SQL$ 
With datPrimaryRS.Recordset 
10 .Delete 

.MoveNext 

If .EOF Then .IVloveLast 
End With 
cmdClose_Clicl< 
15 End Sub 



Private Sub cmdUpdate_Click() 
20 On Error Resume Next 

datPrimaryRS.UpdateRecord 
If Err Then 
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MsgBox "An error has occured in this update. " & Error$, vbOKOnly, "UPDATE 
ERROR" 
End If 

On Error GoTo 0 

5 datPrimaryRS.Recordset.Bookmark = datPrlmaryRS.Recordset.LastModified 
txtFields(O) = Current! D 
txtFields(1).SetFocus 
Screen. MousePointer = 0 
End Sub 

10 

Private Sub cnf)dClose_Click() 

Screen.MousePointer = vbDefault 

Unload Me 
End Sub 

15 

Private Sub Combo1_Change() 

End Sub 
frmUsers - 3 

20 

Private Sub datPrimaryRS_Error(DataErr As Integer, Response As Integer) 
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This is where you would put error handling code 
'If you want to ignore errors, comment out the next line 
1f you want to trap them, add code here to handle them 
MsgBox "Data error event hit err:'* & Error$(DataErr) 
5 Response = 0 Throw away the error 
End Sub 

Private Sub datPrimaryRS_Reposition() 
Screen. MousePointer = vbDefault 
10 On Error Resume Next 

This will display the current record position for dynasets and snapshots 
datPrimaryRS.Caption = '*User: " & (datPrimaryRS.Recordset.AbsolutePosition + 1) 

End Sub 

15 Private Sub datPrimaryRS_Va!idate(Action As Integer, Save As Integer) 
This is where you put validation code 
This event gets called when the following actions occur 
Select Case Action 
Case vbDataActionMoveFirst 
20 Case vbDataActionMovePrevious 
Case vbDataActionMoveNext 
Case vbDataActionMoveLast 
Case vbDataActionAddNew 
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Case vbDataActionUpdate 
Case vbDataActionDelete 
Case vbDataActionFind 
Case vbDataActionBookmark 
5 Case vbDataActionCIose 

Screen.MousePointer = vbDefault 
End Select 

Screen.MousePointer = vbHourglass 
End Sub 

10 

Private Sub Form_Load() 
Me.Caption = SystemName & " " & Me.Caption 
datPrimaryRS.DatabaseName = App.Path & "\eStatement.mdb" 
datPrimaryRS.RecordSource = "select * from [Users] Where [ID] = " & CurrentID 
15 datPrimaryRS.Refresh 

datPrimaryRS. Recordset. MoveFirst 

End Sub 

20 Private Sub Form_Unload(Cancel As Integer) 
Screen.MousePointer = vbDefault 
End Sub 
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Private Sub txtFielcls_LostFocus(lndex As Integer) 

If Index = 1 And Trlm$(txtFields(4)) = And txtFields(l) <> "" Then 

txtFields(4) = Mal<eAlpha(txtFields(1)) 
End If 
5 End Sub 
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VERSION 5.00 
5 Begin VB.Form frmUsers 

BorderStyle = 3 'Fixed Dialog 
Caption = "Customer Setup" 
ClientHelglit = 3690 
ClientLeft = 1095 
10 ClientTop = 330 
CllentWidth = 5550 
Icon = (Icon) 
LinkTopic = "Form2" 
LockControis = -1 'True 
15 MaxButton = 0 'False 
MinButton = 0 'False 
ScaleHeight = 3690 
ScaleWidth = 5550 
ShowlnTaskbar = 0 'False 
20 StartUpPosition = 2 'CenterScreen 
Begin VB.CheckBox chkFields 
DataField = "No Ad" 
DataSource = "datPrimaryRS" 



Height 


= 285 


Index 


= 2 


Left 


= 2040 


Tablndex 


= 5 


Top 


= 2040 


Width 


= 3375 



End 

Begin VB.CheckBox chkFields 
DataField = "Send Rates" 
DataSource = "datPrimaryRS" 
Height = 285 
Index = 1 
Left = 2040 
Tablndex = 6 
Top = 2385 

Width = 3375 
End 

Begin VB.TextBox txtFields 
DataField = "Sort Name" 
DataSource = "datPrimaryRS" 
Height =315 
Index = 4 
Left = 2040 



MaxLength = 50 
Tablndex = 7 
Top = 2760 

Width = 3135 
End 

Begin VB.CheckBox chl<Fieids 
DataField = "Suspend" 
DataSource = "datPrimaryRS" 
Height = 285 
index = 0 
Left = 2040 
Tablndex = 4 
Top = 1680 

Width = 3375 
End 

Begin VB.TextBox txtFields 
DataField = "Date Added" 
DataSource = "datPrimaryRS" 
Height =315 
Index = 3 
Left = 4380 
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MaxLength = 10 
Tablndex = 19 
Top = 0 

5 Visible = 0 'False 
Width =315 
End 

Begin VB.PictureBox picButtons 
Align = 2 'Align Bottom 
10 Appearance = 0 'Flat 
BorderStyle = 0 'None 
ForeColor = &H80000008& 
Height = 300 
Left = 0 
15 ScaleHeight = 300 
ScaleWidth = 5550 
Tablndex = 15 
Top = 3045 

Width = 5550 
20 Begin VB.CommandButton cmdAccounts 
Caption = "&Accounts" 
Height = 300 
Left = 3420 
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Tablndex = 21 
TabStop = 0 'False 
Top = 0 

Width = 975 
End 

Begin VB.CommandButton cmdClose 



Caption 


= "&Close" 


Height 


= 300 


Left 


= 4605 


Tablndex 


= 18 


TabStop 


= 0 "False 


Top 


= 0 


Width 


= 975 



End 

Begin VB.CommandButton cmdUpdate 

Caption = "&Update" 

Height = 300 

Left = 2325 

Tablndex = 8 

Top = 0 

Width = 975 
End 

Begin VB.CommandButton cmdDelete 



Caption = "&Deiete" 

Height = 300 

Left = 1217 

Tablndex = 17 

5 TabStop = 0 'False 

Top = 0 

Width = 975 
End 

Begin VB.CommandButton cmdAdd 

10 Caption = "&Add" 

Height = 300 

Left = 121 

Tablndex = 16 

TabStop = 0 'False 

15 Top = 0 

Width = 975 
End 
End 

Begin VB.Data datPrimaryRS 
20 frmUsers - 3 



Align 



= 2 'Align Bottom 
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Caption = "" 
Connect = "Access" 

DatabaseName = "C:\estatement\estatement.mdb" 

DefaultCursorType= 0 'DefaultCursor 
5 DefaultType = 2 'UseODBC 

Exclusive = 0 'False 

Height = 345 

Left = 0 

Options = 0 
10 Readonly = 0 'False 

RecordsetType = 1 'Dynaset 

RecordSource = "select * from [Users] Order by [Address Name]" 
Top = 3345 

Visible = 0 'False 
15 Width = 5550 
End 

Begin VB.CheckBox chkFields 
DataField = "Confirmed" 
DataSource = "datPrimaryRS" 
20 Height = 285 
Index = 4 
Left = 2040 
Tablndex = 3 
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Top = 1340 

Width = 3375 
End 

Begin VB.CheckBox chkFlelds 

DataField = "Charge" 

DataSource = "datPrimaryRS" 

Height = 285 

index = 3 

Left = 2040 

Tablndex = 2 

Top = 1020 

Width = 3375 
End 

Begin VB.TextBox txtFields 
DataField = "e-Mail Address" 
DataSource = "datPrimaryRS" 
Height = 285 
Index = 2 
Left = 2040 
MaxLength = 50 
Tablndex = 1 
Top = 700 

Width = 3135 



End 

Begin VB.TextBox txtFields 
BackColor = &H80000004& 
DataField = "ID" 
DataSource = "datPrinfiaryRS" 
Enabled = 0 'False 
Height = 285 
Index = 0 
Left = 2040 
Tablndex = 10 
Top = 60 

Width = 735 
End 

Begin VB.TextBox txtFields 
DataField = "Address Name" 
DataSource = "datPrimaryRS" 
Height =315 
frmUsers - 4 



Index = 1 
Left = 2040 
MaxLength = 50 



Tablndex = 0 
Top = 380 

Width = 3135 
End 

5 Begin VB.Label IblLabels 

Caption = "Do not Send Ads:" 

Height = 255 

Index = 8 

Left = 120 
10 Tablndex = 24 

Top = 2040 

Width = 1815 
End 

Begin VB.Label tbILabeis 
15 Caption = "Send CD. Rates:" 
Height = 255 
Index = 7 
Left = 120 
Tablndex = 23 
20 Top = 2385 

Width = 1815 
End 

Begin VB.Label IblLabels 

-206- 



Caption = "Sort Name:" 
Height = 255 
Index = 6 
Left = 120 
5 Tablndex = 22 
Top = 2760 

Width = 1815 
End 

Begin VB.Label IblLabels 
10 Caption = "Suspend e-Maii:" 
Height = 255 
Index = 5 
Left = 120 
Tablndex = 20 
15 Top = 1680 

Width = 1815 
End 

Begin VB.Label IblLabels 
Caption = "Confirmed:" 
20 Height = 255 
Index = 4 
Left = 120 
Tablndex = 14 
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Top = 1340 

Width = 1815 
End 

Begin VB. Label IblLabels 

Caption = "Charge:" 

Height = 255 

Index = 3 

Left = 120 

Tablndex = 13 

Top = 1020 

Width = 1815 
End 

Begin VB.Label IblLabels 

Caption = "eMail Address:" 

Height = 255 
frmUsers - 5 



Index - 2 

Left = 120 
Tablndex = 12 

Top = 700 

Width = 1815 



End 

Begin VB.Label IblLabels 

Caption = "Address Name:" 

Height = 255 

Index = 1 

Left = 120 

Tablndex = 11 

Top = 380 

Width = 1815 
End 

Begin VB.Label IblLabels 
Caption = "Customer ID:" 
Height = 255 
Index = 0 
Left = 120 
Tablndex = 9 
Top = 60 

Width = 1815 
End 
End 

fmnUsersGrid - 1 



Option Explicit 



Private Sub cmdAddEdit_Cliclc() 
5 l\/ISFIexGrid1.Col = 0 
CurrentID = 0 

If MSFIexGridlText <> "" Then CurrentID = Val(MSFIexGridl.Text) 
Dim f As New frm Users 
f.Show vbModal, Me 
10 datPrimaryRS. Refresh 
End Sub 

Private Sub cmdClose_Click() 
Screen. MousePointer = vbDefault 
15 Unload Me 
End Sub 

Private Sub datPrimaryRS_Error(DataErr As Integer, Response As Integer) 
This is where you would put en-or handling code 
'If you want to ignore errors, comment out the next line 
20 'If you want to trap them, add code here to handle them 
MsgBox "Data error event hit err:" & Error$(DataErr) 
Response = 0 'Throw away the error 
End Sub 
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Private Sub clatPrimaryRS_Reposition() 

Screen.MousePointer = vbDefault 

On Error Resume Next 
End Sub 

5 

Private Sub clatPrimaryRS_Validate(Actlon As Integer, Save As Integer) 
This is where you put validation code 
This event gets called when the following actions occur 
Select Case Action 
10 Case vbDataActionMoveFirst 

Case vbDataActionMovePrevious 
Case vbDataActionMoveNext 
Case vbDataActionMoveLast 
Case vbDataActionAddNew 
15 Case vbDataActionUpdate 
Case vbDataActionDelete 
Case vbDataActionFind 
Case vbDataActionBookmark 
Case vbDataActionClose 
20 Screen.MousePointer = vbDefault 
End Select 

Screen.MousePointer = vbHourglass 
End Sub 
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Private Sub Form_Load() 
Me.Caption = SystemName & " " & Me.Caption 
datPrimaryRS.DatabaseName = App.Path & '^estatement.mclb" 
datPrimaryRS.RecordSource = "Select [ID],[Sort Name] as [Customer Name],[e-Mail 
5 Addre 

ssl,[Charge] as Chrg, [Confirmed] as Conf,[Suspend] as Susp, [No Ad], [Send Rates] as 
Rates,[Date Added] from [Users] Order by [Sort Name]" 
MSFIexGrid1.FormatString = "ID |Name |e-Mail Address 

|ChrglConf|Susp|No Ad|Rates|Date Added " 

10 

End Sub 

Private Sub Form_Unload(Cancel As Integer) 
Screen.MousePointer = vbDefault 
15 End Sub 

Private Sub Form_Resize() 
frmUsersGrid - 2 

20 

On En-or Resume Next 

This will resize the grid when the form is resized 
MSFIexGridl. Height = Me.ScaleHeight - picButtons. Height - 60 
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End Sub 



Private Sub MSFIexGrid1_DblClick() 
cmdAddEdit_Click 
5 End Sub 

frmUsersGrid - 1 

VERSION 5.00 

10 Object = "{5E9E78A0-531 B-1 1 CF-91 F6-C2863C385E30}#1 .0#0"; "MSFLXGRD.OCX" 
Begin VS. Form frmUsersGrid 

Caption = "Customers" 

CiientHeight = 4290 

ClientLeft = 1110 
15 ClientTop = 345 

ClienfWidth = 8175 

icon = (icon) 

Linl<Topic = "Fomi1" 

ScaieHeight = 4290 
20 ScaleWidtli = 8175 

StartUpPosition = 2 'CenterScreen 

Begin IVISFIexGridLib.MSFIexGrid IVISFiexGridI 
Heigtit = 3495 
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Left 


60 


Tablndex 


= 2 


Top = 


60 


Width 


8055 


_ExtentX 


= 14208 


_ExtentY 


= 6165 


_Version 


= 393216 


Cols = 


8 


FixedCols 


= 0 


ScrollBars 


= 2 


FormatString 


= <...> 



End 

Begin VB.PictureBox picButtons 



Align = 


2 'Align Bottom 


Appearance 


= 0 'Flat 


BorderStyle 


= 0 'None 


ForeColor 


= &H80000008& 


Height 


= 300 


Left 


0 


ScaleHeight 


= 300 


ScaleWidth 


= 8175 


Tablndex 


= 0 


Top = 


: 3645 



Width = 8175 

Begin VB.CommandButton cmdAddEdit 

Caption = "&Add/Edit" 

Height = 300 
5 Left = 240 

Tablndex = 3 

Top = 0 

Width = 975 
End 

10 Begin VB.CommandButton cmdClose 
Caption = "&Close" 
Height = 300 
Left = 1350 
Tablndex = 1 
15 Top = 0 

Width = 975 
End 
End 

Begin VB.Data datPrimaryRS 
20 Align = 2 'Align Bottom 
Caption = 
Connect = "Access" 
DatabaseName = "C:\ebalance\ebalance.mdb" 
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DefaultCursorType= 0 'DefaultCursor 
DefauItType = 2 'UseODBC 
Exclusive = 0 'False 
frmUsersGrid - 2 

5 

Height = 345 

Left = 0 

Options = 0 

Readonly = 0 'False 
10 RecordsetType = 1 'Dynaset 

RecordSource = "" 

Top = 3945 

Visible = 0 'False 

Width = 8175 
15 End 
End 

Modulel - 1 

20 

Option Explicit 

Public fMainForm As frmMain 

Public CurrentID As Long, LoanDate As Date, LastUpdate As Date 
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Public ReportPath As String, FilePath As String, LoanPatii As String 

Public ReportSet As String, ReportDateAcld% 

Global wrkJet As Workspace 

Global dbs As Database 
5 Global UsersDisabled As Boolean 

Global tbIAccounts As Table 

Global tbIUsers As Table 

Global tblBaiances As Table 

Global tbITrans As Table 
10 Global tblNSF As Table 

Global tbITranCodes As Table 

Global tbIHistory As Table 

Global AutoFlag%, LastComplete As Date, LastTry As Date, NextTry As Date, 
FilesMissin 
15 g As Integer, Autol As Integer 
Global tbISetup As Table 
Global tbIOptions As Table 

Global GBalance%, GTrans%, GStatement%, GLoans%, GCSV%, GQwick%, 
GMessage$ 

20 Global SystemName$, BankName$, StatementFont%, GIFName$ 
Sub MainQ 
Dim fLogin As New frmLogin 

SystemName$ = GetSetting(App.Tltle, "Settings", "SystemName", "eStatement") 
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BankName$ = GetSetting(App.Title, "Settings", "BankName", "Demo Bank") 
StatementFont% = Val(GetSetting(App.Title, "Settings", "StatementFont", "6")) 
GIFName$ = GetSetting(App.Title, "Settings", "GIFName", "") 
'fLogin.Sliow vbModal 
5 'If Not f Login. OK Then 
' 'Login Failed so exit app 
' End 
'End If 

'Unload ft.ogin 

10 

frmSplash.Show 
frmSplash. Refresh 

Set fMainForm = New frmMain 
15 Load fl\/1ainForm 
Unload frmSplash 

fMainForm.Show 

End Sub © 2000, By Lamar Bank Incorporated. AH rights reserved. 
20 The preferred method may also be described with reference to the process 

steps as set forth in Figs. 13 through 1 7. Now, with first reference to Fig. 1 3, there 
is displayed the various steps in logical sequence from the beginning of e-statement 
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generation up to the actual building of the e-statements. The statement generation 
step 168 is initiated by verifying input of the various files described above, for 
extraction of certain financial data, such as balances, debits and credits to checking 
accounts, loan accounts and the like, previously described and for ultimate display 

5 into the e-statement as shown in Fig. 1 . During final verification step 1 69, a negative 
response will block continued processing and return to menu reflected in block 1 70. 

If all files are positively verified at 1 69, all variables are initialized in step 1 71 . 
The variables initiated in step 171 then are loaded into a format in step 172 and 
dimension variables 173 are configured. If it is then desired to process the 

10 statements at step 174, the functions are run and the statements are made at 1 75. 

The actual creation step 176 for the statements is illustrated in Fig. 14. For 
the making of the statements 176, the dimension variables 173 are considered and 
the various source files are searched to confirm their presents at step 177. If the 
files are not present, step 178, return to run function 175 to step 169. If step 177 

15 confirms the presents of various files, the files are open and the header lines are 
read as step 179. The lines are then read until the top of the page is identified, step 
180. The first 8 lines are read and the account number is extracted at step 181 to 
confirm account number match up step 182. If the confirmation cannot be made at 
step 182, step 180 is repeated until confirmation is established. Confimnation of 

20 account number through step 1 82 permits continuance of makeup of the statements 
and an HTML file is built by reading each line of the statement, step 183. The file 
creation then is ended, step 184 or steps 180 through 183 repeated until creation of 
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the file. Creation of the file enables return step 185 to process balances in the 
selected accounts (files) step 186. As part of the processing of the balances 186, 
the loan files are accessed and processed for balances and the like at 187. The 
loans are read as a sub-step 188. 

5 The loan sub-step 1 88 is initiated 1 89 to process, as shown in Fig. 1 , two loan 

files, trial balances 190. Each line of the text from the files is conducted at 191 and 
extraction of selected character lines, such as 2 through 1 1 for purposes of Fig. 1 is 
effected through step 192. If the characters are numeric, 193 an account number 
match is effected 194. If the characters are not numeric, 193, steps 191 and 192 are 

10 repeated to search for any information which can be utilized to effect an account 
match-up. If the account number match-up is effected, 194, the balance table is 
updated with data from 3 file lines, for example, to effect the configuration for Fig. 1 
at step 195. The file is now complete, 196 or steps 191 through 195 are repeated 
until the file is completed and return to main program, 197. 

15 After the return step 1 97, the trial balances for deposit accounts are read and 

the balance infomnation is extracted, step 198. If the account does not reflect any 
active loans, step 188 is not initiated and the deposit trial balances readings is 
immediately effected. 

The deposit trial balances step 1 98 will now be described. First, old balances 

20 from the data base for all accounts are deleted as step 199. Confimiation of the 
existence of such files is then made at 200. If no files are present, trial balances for 
deposits sub-step 1 98 is not effected. If presence of the files is confirmed at 200, the 
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files are processed, for example, 3 as shown in Fig. 1, incrementally at 201. Each 
file is opened in sequence at 202 and each line is read to find and extract the 
account number, 203. The account number match-up is either confirmed or not at 
step 204 and, if not, step 203 is repeated until confirmation of the account number 
5 match-up. The balance table is updated at step 205 and the file creation is 
completed, 206, or steps 203, 204 and 205 are repeated until completion of the file 
and return to transaction processing, step 207. The processing is continued through 
step 208 by reading all transactions and non-sufficient funds information sub-step d 
209. 

10 The reading of the transactions and NSF information, sub-step 209 is as 

shown in Fig. 17. The availability of the transactions file is confinned at 210 and a 
posting journal is opened, step 21 1 . Each line is read and the account number is 
extracted, step 212 and an account number match is confirmed 21 3. If the account 
number cannot be matched positively, the file is terminated at step 214 or procedure 

15 21 2 repeated until confirmation is established 21 3. If the file is terminated at step 
214, the mn function is continued, step 1 75 and the statements of processed at 1 74. 
If the account number is confirmed at 213, the transaction is added to the transaction 
table step 215 and creation of the file is terminated, 216, or steps 212, 213 and 215 
repeated until file completion. File completion enables mn function and statement 

20 processing steps 1 75 and 1 74, respectively, to be effected. Upon completion of the 
file 216, the availability of a non-sufficient fund file is checked at step 217 and the 
NSF report file is opened 218. Each line is read and the account number is 
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extracted 219 with account number match up effected at 220. If there is no match- 
up, the file is terminated as step 216, or step 219 completed to effect an account 
match-up. After account match-up, 220, NSF checks are added to the NSF table for 
generation in the e-statement at step 221 and the file is completed, 222 and the 

5 statements are created and processed, steps 175 and 174. The e-statements are 
built as generally shown in Figs. 2 through 12. 

Figs. 17A through 17D illustrate the configuration and orientation of an e- 
statement printout 300. With particular reference to Fig. 17A, the title block 301 Is 
provided at the upper-most portion of the page with advertising or other special title 

10 trailer 302, provided adjacentthe title 301 . A logo 303 or other artistic embellishment 
is presented as field 303. A special notice 304 or disclaimer is provided just prior to 
printout of further specific information. A special printout of the customer number 
305 deletes some of the digits to make the customer number incomplete, but is 
sufficient for the customer to know and identify his account number through his own 

15 personal knowledge. 

Field 306 designates a time period for coverage of the information within the 
statement 300. A summary field 307 then is provided which basically summarizes 
and identifies the various accounts, such as checking 308 and savings 309, also with 
only partial complete digits of the account numbers for security purposes, 310 and 

20 311. Respective balances 312 and 31 3 are provided for the accounts. An account 
activity field 314 serves to identify various debits and credits 315, 316, 317 and 318 
for the associated accounts. The summary 307 also includes an ending balance 
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column 319 for printing of the respective ending balances 320 and 321 for the 
respective accounts 308, 309. 

More detail is provided in the statement 300 through a breakout of each of the 
account numbers identified In the summary 307. As shown, the first account activity 

5 summary 322 is for checking account "06", 308. The account number configuration 
is repeated in field 323 with the previous balance field 324 being used to identify the 
previous date of information summary and the previous balances identified at 325. 
A deposit total line 326 is given to identify the number 327 of deposits or other 
credits and a digitized total of such deposits and other credits provided at 328. 

10 Likewise, a debit and withdrawal line 329 provides the total 330 of debits and other 
withdrawals and a digitized column reflecting such total. Finally, an ending balance 
332 includes a field 333 for referencing the date of the ending balance and digitized 
field 332 for printing out the amount of such ending balance. General summary 
information for the checking account 308 is provided below line 334. As shown, the 

15 account disclosure field 334 may include an identification of average daily balance 
335 in numerical format 336 and the total number od days for the statement cycle 
337 and indicated as "28" in field 328. 

Details of account transactions are identified at 329, such as deposits and 
other credits 330 identified in a date column 331 together with a description 332 such 

20 as deposit 333 or direct deposit 334 or other means. An amount column 335 is 
provided with digitized amounts identified, such as 336. 
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Checks are identified in the area 337 by date, columns 338, number 339 and 
amount 340. A star or asterisl< 341 indicates numerical sequence has been broken. 

As shown in Fig. 17B, the check transactions are continued and there below 
various miscellaneous charges of the bank or commercial organization are indicated 
5 at 342 by date 343, reference number 344, description 345 and amount 346. These 
charges may be reflected as a debit card actual debit 347 from a business identified 
as 348 using a business designation code 349 and physical location 350. Electronic 
transfers for automatic payment of utilities may be made, such as at 351 to a supplier 
352. 

10 A daily balance field 352 is provided for the checking account 308 with a 

breakdown by date 353 and balance 354, as shown in Figs. 17C. 

Also shown in Fig. 17Cls a breakdown for another account, in this case, a 
savings account identified at 353 with a digitized account identifier at 354 with the 
first 4 digits therein deleted for security purposes. A previous balance line 355 
15 provides the previous balance as of a given date, such as 356, together with total 
number of deposits or other credits 357 and total of debits and withdrawals 358 and 
ending balance line is provided 359 and, there below, a field for identifying and 
calculating the interest earned on a year to date basis through the last payment 360. 
General account disclosure information is identified at title 361 which includes 
20 an average daily balance disclosure 362, the number of days in the statement cycle 
363. Interest earned during the current statement period is provided at 364 together 
with the annual percentage yield as calculated in a percentage format at 365. 
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Finally, the general promotional information or advertising is provided at the end of 
the statement in a general field identified as 366. 

Although the invention has been described in terms of specified embodiments 
which are set forth in detail, it should be understood that this is by illustration only 
and that the invention is not necessarily limited thereto, since alternative 
embodiments and operating techniques will become apparent to those skilled in the 
art in view of the disclosure. Accordingly, modifications are contemplated which can 
be made without departing from the spirit of the described invention. 
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What is claimed and desired to be secured by Letters Patent is: 



1 (1 ) A method incorporating a financial institution computer system for extracting 

2 financial data within a data base in the computer system, formatting the data 

3 and transmitting the formatted data via electronic mail comprising the steps 

4 of: 

5 (a) maintaining electronic information on financial accounts of a customer 

6 within said data base in the financial institution computer system; 

7 (b) processing said electronic information within the data base to identify 
Ss and extract pre-selected data therefrom; 

;f9 (c) electronically formatting said data for transmission to said customer via 
5i3 electronic mail; and 

11 (d) transmitting the formatted data to a location designated by said 
;iz customer via electronic mail for storage within and readout on a 

^ computer system of said customer. 

1 (2) The method of Claim 1 , wherein the step of maintaining electronic information 

2 includes the sub-step of creating and maintaining at least one of the following 

3 electronic file formats and sortable by individual customer identification code: 

4 (1) checking; 

5 (2) savings; 

6 (3) certificate of deposit; 
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7 (4) loan; 

8 (5) discount loan; 

9 (6) simple interest loan; 

10 (7) customer's without account; 

11 (8) posting journal for containing all posted transactions for all account 

12 types in account number order; 

13 (9) posting journal for posting transactions for all account types in amount 

14 order; 

15 (10) previously transmitted statements file; 
(1 1 ) laser notice file; and 

;£7 (1 2) non-sufficient fund check notice files in officer order. 

= 1 (3) The method of Claim 2, wherein the step of processing said electronic 

'fy. information includes the sub-steps of generating and creating at least one of 

(3 the following file formats on a predeterminable time increment basis: 

4 (1 ) mini trial balance for each checking account; 

5 (2) mini trial balance for each savings account; 

6 (3) mini trial balance for each certificate of deposit account; 

7 (4) mini trial balance for each loan account; 

8 (5) mini trial balance for each discount loan account; 

9 (6) trial balance for each simple interest loan account; 

10 (7) trial balance for each customer's without account; 
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1 1 (8) all posted transactions for all account types in account numerical order; 

12 (9) posted transactions for all account types in amount order; 

13 (1 0) all statements printed for a previous statement transmission period; 

14 (11 ) a notice in laser format; and 

15 (12) all NSF checks in officer order. 

1 (4) The method of Claim 1 wherein the step of electronically formatting said data 

2 includes the sub-step of creating within the financial institution computer 

3 system a main menu for said data including sub-menu selections for 
Jl customers, options, verify files, enable auto e-mail, generate e-mail, 
: B broadcast, help and exit. 



= 1 (5) The method of Claim 1 wherein said step of electronically formatting said data 
for transmission to said customer includes the sub-step of creating within said 

i3 financial institution computer system a main menu selection of customers to 

4 whom the formatted data is to be transmitted. 

1 (6) The method of Claim 5, further including the sub-step of generating an 

2 identification symbol in numerical format for each said customer and including 

3 entry of an e-mail address for each such identified customer. 
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1 (7) The method of Claim 4 further comprising the sub-step of including within the 

2 customer menu an indicator of charge/no charge to the customer for 

3 transmission of said formatted data. 

1 (8) The method of Claim 4 further comprising the sub-step of including within the 

2 customer menu an Indicator of confirmation/no confirmation by the customer 

3 of the e-mail address indicated in said customer menu. 

1 (9) The method of Claim 4 further comprising the sub-step of actuating means 
rlz indicated in the customer main menu for suspending formatted data 

;6 transmissions to a customer. 

« 1 (10) The method of Claim 4 further comprising the sub-step of activating means 
prohibiting advertising being sent in the data transmission to the customer. 

1 (11) The method of Claim 4 further comprising the sub-step of activating means for 

2 generating an interest rate calculation in an attachment to the customer with 

3 the data transmission on a pre-determined time basis. 

1 (12) The method of Claim 4 further comprising the sub-step of activating the 

2 add/edit field in the customer main menu whereby at least one of the following 

3 fields are completed or changed: 
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1 


(1) 


customer name; 


2 


(2) 


e-mail address; 


3 


(3) 


charge designation; 


4 


(4) 


confirmation of e-mail address by customer; 


5 


(5) 


suspend e-mail transmission; 


6 


(6) 


advertisement transmission block; 


7 


(7) 


transmission of interest rates on designated accounts; and 


8 


(8) 


name of customer by sort designation. 



S (13) The method of Claim 1 wherein the step of processing said electronic 
7^ information includes the sub-step of generating a customer set up 

configuration by sorting the data field for each customer identification data 
=; 4 reflected in at least one of the following fields: 



;q5 


(1) 


account number; 


'i 


(2) 


reference number; 


7 


(3) 


account name; 


8 


(4) 


account type; 


9 


(5) 


balance for designated account; 


10 


(6) 


transactions for designated account; 


11 


(7) 


non-sufficient funds designation; and 


12 


(8) 


day or date for report transmission. 
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1 (14) The method of Claim 1 wherein the step of processing said electronic 

2 information includes the sub-step of enabling a statement automatic set-up 

3 mode to generate separate, individual processing attempts, spaced apart by 

4 time designations subsequent to a real time selection for initiating the 

5 processing step. 

1 (1 5) The method of Claim 1 wherein the step of electronically formatting said data 

2 includes the sub-step of electronically generating at least one of the following 

3 financial data: 

iB (1) account balance; 

:B (2) account transactions; 

Jh5 (3) loan data; 

i 7 (4) statement attachments; 

:58 (5) CSV attachments; and 

A (6) Qwicken attachments. 

1 (16) The method of Claim 1 wherein the step of processing said electronic 

2 information includes the sub-step of verifying availability and access to 

3 designated files within the electronic information required for formatting said 

4 data for transmission to said customer. 
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1 (17) The method of Claim 1 wherein the step of formatting said data for 

2 transmission includes the sub-step of providing in broadcast mode to each 

3 customer a manually generated message for inclusion in and transmission of 

4 the formatted data. 

1 (18) A system for notifying a customer of financial information, comprising: 

2 (a) a computer system including a data base including information on 

3 customer financial accounts and wherein the financial accounts are 

4 maintained in a financial institution computer program; and 

5 (b) program logic implemented in the financial institution computer program 

:jj comprising: 

J|7 (1 ) means for maintaining electronic information within said program 

8 on the financial accounts; 

(2) means for processing said electronic information to identify and 

ri) extract the pre-selected data therefrom; and 

11 (3) means for electronically formatting said data for transmission to 

12 said customer via electronic mail; and 

13 (4) means for transmitting the formatted data to a location 

14 designated by a customer via electronic mail for storage within 

15 and readout on a customer computer system. 
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1 


(1 9) The system of Claim 1 8 wherein the program logic further Includes means for 


2 


creating and maintaining at least one of the following electronic file formats 


3 


sortable by individual customer identification code. 


4 


UJ 




5 




co\/innQ' 
odvii 


6 






7 


(4) 


loan; 


8 




Qiscouni loan, 


9 


(6) 


simple interest loan; 




U) 


oustorner s witnout account, 


•ft 




posiing journal lor coniaining an posieo iransaciions Tor an account 
Types in account numoer oraer, 


=13 

;§ 


(9) 


posting journal for posting transactions for all account types in amount 
order; 


IP 


(10) 


previously transmitted statements file; 


16 


(11) 


laser notice file; and 


17 


(12) 


non-sufficient fund check notice files in officer order. 



1 (20) The system of Claim 18 wherein the means for processing said electronic 

2 information includes means for generating and creating at least one of the 

3 following file formats on a predeterminable time increment basis: 

4 (1 ) mini trial balance for each checking account; 
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1 (2) mini trial balance for each savings account; 

2 (3) mini trial balance for each certificate of deposit account; 

3 (4) mini trial balance for each loan account; 

4 (5) mini trial balance for each discount loan account; 

5 (6) trial balance for each simple interest loan account; 

6 (7) trial balance for each customer's without account; 

7 (8) all posted transactions for all account types in account numerical order; 

8 (9) posted transactions for all account types in amount order; 

9 (1 0) all statements printed for a previous statement transmission period; 
i j) (11) a notice in laser format; and 

;|l (12) all NSF checks in officer order. 



= 1 (21 ) The system of Claim 1 8 wherein the means for electronically formatting said 
data includes means for creating within the financial institution computer 

5 program a main menu for said data including sub-menu selections for 

4 customers, options, verify files, enable auto e-mail, generate e-mail, 

5 broadcast, help and exit. 

1 (22) The system of Claim 1 8 wherein the means for electronically formatting said 

2 data further includes means for creating within the said financial institution 

3 computer program a main menu selection of customers to whom the 

4 fonnatted data is to be transmitted. 
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1 (23) The system of Claim 1 8 wherein the program logic further includes means for 

2 generating an identification symbol in numerical format for each said customer 

3 and including entry of an e-mail address for each such identified customer. 

1 (24) The system of Claim 1 8 wherein the program logic further includes means for 

2 indicating a charge or no charge to the customer for transmission of said 

3 formatted data. 

J (25) The system of Claim 18 wherein said program logic further includes means 
:fe for receipt of electronic confirmation by the customer of the e-mail address 

5 indicated by the customer. 



(26) The system of Claim 18 further including program logic including means for 
suspending formatted data transmissions to a customer. 

1 (27) The system of Claim 1 8 wherein the program logic further includes means for 

2 prohibiting the electronic transmission to the customer of advertising with the 

3 formatted data. 
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1 



2 



3 



The system of Claim 1 8 wherein the program logic further includes means for 
generating an interest rate calculation in an attachment to the customer with 
the data transmission on a pre-determined time basis. 



1 


(29) 


The system of Claim 18 (the program logic further includes means for 


2 




activating an add/edit field in a customer main menu whereby at least one of 


3 




the following fields may be completed or changed: 


4 




(1) 


customer name; 


5 




(2) 


e-mail address; 






(3) 


charge designation; 


;=P7 




(4) 


confirmation of e-mail address by customer; 






(5) 


suspend e-mail transmission; 






(6) 


advertisement transmission block; 






(7) 


transmission of interest rates on designated accounts; and 


is 




(8) 


name of customer by sort designation. 


1 


(30) 


The system of Claim 18 wherein the program logic further includes means for 


2 




sorting data for each customer reflected in at least one of the following fields: 


3 




(1) 


account number; 


4 




(2) 


reference number; 


5 




(3) 


account name; 


6 




(4) 


account type; 
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7 (5) balance for designated account; 

8 (6) transactions for designated account; 

9 (7) non-sufficient funds designation; and 
10 (8) day or date for report transmission. 

1 (31 ) Tlie system of Claim 1 8 wherein the program logic further includes means for 

2 enabling a statement automatic set up mode to generate separate, individual 

3 processing attempts, spaced apart by time designations subsequent to a real 

4 time selection for initiating the process step. 

= Fl (32) The system of Claim 1 8 wherein the program logic further includes means for 

;|2 generating at least one of the following financial data: 

= 3 (1 ) account balance; 

jijt (2) account transactions; 

riS (3) loan data; 

6 (4) statement attachments; 

7 (5) CSV attachments; and 

8 (6) Qwicken attachments. 

1 (33) The system of Claim 1 8 wherein the program logic further includes means for 

2 verifying availability and access to designated files within the computer system 

3 required for formatting said data for transmission to said computer. 

-237- 



1 (34) The system of Claim 18 wherein the program logic includes means for 

2 providing in broadcast mode to each customer a manually generated 

3 message for inclusion in and transmission of the formatted data. 

1 (35) An article of manufacture for use in programming a financial institution 

2 computer system maintaining a data base including information on a plurality 

3 of customer accounts, the article of manufacture comprising a computer 

4 useable storage medium having at least one computer program stored therein 
; J that causes a financial institution computer system to perform steps of: 

;p (a) maintaining electronic Infonnation In the financial institution computer 

i j system on financial accounts; 

8 (b) processing said electronic information to identify and abstract 

;§ preselected data therefrom; 

A (c) electronically formatting said data for transmission to said customer via 

11 electronic mail; and 

12 (d) transmitting the formatted data to a location designated by a customer 

13 via electronic mail for storage within and readout on a customer 

14 computer system. 

1 (36) The article manufacture of Claim 35 wherein the step of maintaining electronic 

2 information Includes as sub-step of creating and maintaining at least one of 
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3 the following electronic file formats sortable by individual customer 

4 identification code: 

5 (1) checking; 

6 (2) savings; 

7 (3) certificate of deposit; 

8 (4) loan; 

9 (5) discount loan; 

10 (6) simple interest loan; 

11 (7) customer's without account; 

■ §2 (8) posting journal for containing all posted transactions for all account 
:|3 types in account number order; 

;|4 (9) posting journal for posting transactions for all account types in amount 
=;15 order; 

;;|6 (10) previously transmitted statements file; 

3? (1 1 ) laser notice file; and 

18 (12) non-sufficient fund check notice files in officer order. 

1 (37) The article manufacture of Claim 35 wherein the step of processing said 

2 electronic information includes as sub-step of generating and creating at least 

3 one of the following file formats on a pre-determinable time increment basis: 

4 (1 ) mini trial balance for each checking account; 

5 (2) mini trial balance for each savings account; 
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6 (3) mini trial balance for each certificate of deposit account; 

7 (4) mini trial balance for each loan account; 

8 (5) mini trial balance for each discount loan account; 

9 (6) trial balance for each simple interest loan account; 

10 (7) trial balance for each customer's without account; 

1 1 (8) all posted transactions for all account types in account numerical order; 

12 (9) posted transactions for all account types in amount order; 

13 (1 0) all statements printed for a previous statement transmission period; 

14 (1 1 ) a notice in laser format; and 
m (12) all NSF checks in officer order. 

ml (38) The article manufacture of Claim 35 wherein the step of electronically 

1 2 fonnatting said data includes the sub-step of creating within the financial 

Ss institution computer system a main menu for said data including sub-menu 

04 selections for customers, options, verify files, enable auto e-mail, generate e- 

5 mail, broadcast, help and exit. 

1 (39) The article manufacture of Claim 35 wherein the step of electronically 

2 formatting said data for transmission to said customer includes the sub-step 

3 of creating within said financial institution computer system a main menu 

4 selection of customers to whom the formatted data is to be transmitted. 
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(40) The article of manufacture of Claim 35 further including the sub-step of 
generating an identification symbol in numerical fonnat for each said customer 
and including entry of an e-mail address for each identified customer. 



(41) The article of manufacture of Claim 35 further comprising the sub-step of 
including within the customer menu an indicator of charge/no-charge to the 
customer for transmission of said formatted data. 



(42) The article of manufacture of Claim 35 further comprising the sub-step of 
including an indicator of confirmation/no confimiation by the customer of the 
e-mail address indicated in the program logic. 



(43) The article of manufacture of Claim 35 further comprising the step of 
activating means indicated in the program logic for suspending formatted data 
transmissions to a client. 



(44) The article of manufacture of Claim 35 further comprising the step of 
activating means prohibiting advertising being sent in the data transmission 
to the customer. 
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1 (45) The article of manufacture of Claim 35 further comprising the step of 

2 activating means for generating and interest rate calculation in an attachment 

3 to the customer with the data transmission on a pre-determined time basis. 

1 (46) The article of manufacture of Claim 35 further comprising the step of 

2 activating an add/edit field in the program logic whereby at least one of the 

3 following fields are completed or changed: 



4 


(1) 


customer name; 


5 


(2) 


e-mail address; 




(3) 


charge designation; 




(4) 


confirmation of e-mail address by customer; 


= ^=8 


(5) 


suspend e-mail transmission; 




(6) 


advertisement transmission block; 


30 


(7) 


transmission of interest rates on designated accounts; and 


41 


(8) 


name of customer by sort designation. 



1 (47) The article of manufacture of Claim 35 further comprising the step of 

2 generating a customer set up configuration by sorting a data field for each 

3 customer identification data reflected in at least one of the following fields: 

4 (1) account number; 

5 (2) reference number; 

6 (3) account name; 
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1 (4) account type; 

2 (5) balance for designated account; 

3 (6) transactions for designated account; 

4 (7) non-sufficient funds designation; and 

5 (8) day or date for report transmission. 

1 (48) Tlie article of manufacture of Claim 35 wherein the step of electronically 

2 formatting the data includes the step of electronically generating at least of the 

3 following financial data: 
^ilt (1) account balance; 

jis (2) account transactions; 

P6 (3) loan data; 

iJi (4) statement attachments; 

OS (5) CSV attachments; and 

O 9 (6) Qwicken attachments. 



1 (49) The article of manufacture of Claim 35 further including the step of processing 

2 the electronic information and enabling a statement automatic set-up mode 

3 to generate separate, individual processing attempts, spaced apart by time 

4 designations subsequent to a real time selection for initiating the processing 

5 step. 
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1 (50) The article of manufacture of Claim 35 wherein at least one of the following 

2 financial data files is sourced and data extracted therefrom: 

3 (1) account balance; 

4 (2) account transactions; 

5 (3) loan data; 

6 (4) statement attachments; 

7 (5) CSV attachments; and 

8 (6) Qwicken attachments. 

:;| (51) The article of manufacture of Claim 35 wherein the step of processing 

Hiz includes the sub-step of verifying availability and access to designated files 
within the electronic information required for formatting the data for 

;=^4 transmission to the customer. 



j f 1 (52) The article of manufacture of Claim 35 wherein the step of formatting the data 

2 for transmission includes the sub-step of providing in broadcast mode to each 

3 customer a manually generated message for inclusion in and transmission of 

4 the formatted data. 
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